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Chapter  - 1 .   Introduction 


1-1  The  Definition  and  Importance  of  Software  Maintenance 

Software  maintenance  is  the  final  phase  of  the  software 
life  cycle.  It  is  frequently  viewed  as  a  phase  of  lesser 
importance  than  the  design  and  development  phases.  The  de- 
finition of  software  maintenance  is  the  performance  of  those 
activities  required  to  keep  a  software  system  operational  and 
responsive  after  it  is  released  for  use  [Liu76].  The  sof- 
tware maintenance  activities  modify  a  progra.m  to  generate 
new  output,  to  change  the  logic  to  incorporate  a  new  fea- 
ture, to  expand  functions,  to  add  new  files,  etc  [Liu76]. 
Generally,  software  maintenance  covers  not  only  changes  to 
source  code  but  also  changes  to  specification  and  design 
notation.  The  reasons  to  perform,  software  maintenance  are  to 
correct  error  and  design  defects,  to  improve  the  design,  to 
convert  the  program  to  meet  m.ore  advanced  features ,  to 
interface  the  program  to  other  programs,  and  to  satisfy 
users'  demands. 

Maintaining  an  application  software  system  tends  to 

consume  a  major  portion  of  the  total  life  cycle  costs. 

Statistical  data  shows  that  maintaining  2  to  10  years   old 

software  systems  demands  possibly  as  high  as  40%  to   60%  or 

even  70%  of  the  am.ount  of  the  developm.ent  effort  for  m.ost 
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companies   [Lie78].   Many  organizations  expend  approximately 
three-fourths  of  their  data  processing  budget  on  maintaining 
existing  programs.    And  the  effort  is  increasing  as  m.ore 
software  is  produced.    Many  managers  are  dismayed  by  the 
actual  expenses  on  maintenance. 

Although  it  is  a  complex  and  costly  phenomenon,  soft- 
ware maintenance  remains  the  least  understood  of  the  soft- 
ware processes  and  receives  little  attention.  Little  re- 
search and  few  technical  approaches  or  "methods"  have  been 
proposed  for  the  software  maintenance.  In  order  to  differen- 
tiate the  types  of  maintenance  and  bring  m.aintenance  under 
control,  the  manager  needs  methods  to  classify  different 
types  of  maintenance.  Proper  methods  of  classifying  types 
of  maintenance  should  help  in  managing  the  maintenance  ef- 
fort. 

A  characterization  of  three  types  of  maintenance  acti- 
vities has  been  proposed  by  Swanson[Swa76]  .   The  three  t^Tpes 
are  corrective,  adaptive,  and  perfective  maintenances.   As 
defined,   corrective  maintenance  is  performed  to  correct 
errors  that  are  uncovered  after  the  software  is  brought  to 
use.   Adaptive  maintenance  is  applied  to  properly  interface 
with  changes  in  the  external  processing  environment.   Per- 
fect maintenance  is  applied  to  eliminate  inefficiencies, 
enhance  performance,  or  improve  maintainability  based  on  the 
requests  from  the  user  group  [Lie78]. 


1-2  Objectives  and  Scopes 

The  purpose  of  this  research  focuses  on  classifying 
different  types  of  maintenance  activities  based  on  data  ob- 
tained from  analysing  COBOL  programs.  The  classification  is 
basically  a  refinement  of  the  earlier  work  of  Swanson. 
Whether  the  previous  classification  methods  are  good  enough 
to  distinguish  the  maintenance  activities  will  be  discussed 
and  compared  with  a  proposed  method  from  this  study. 

T'/^/o  sets  of  COBOL  programs,  each  v/ith  several  versions, 
were  used  as  data  programs.  The  first  set,  from  a  Kansas 
company,  is  named  as  organization  A  programs,  or  program  set 
A,  throughout  the  study.  The  second  set,  organization  E 
programs  or  program  set  3,  however,  came  from  a  data  proces- 
sing enviroriment .  A  shell  program  was  developed  as  a  tool 
to  analyze  the  differences  between  two  consecutive  versions 
from  program  set  A.  The  result  lists  the  numbers  of  each 
statement  in  the  first  version  as  well  as  the  altered,  'de- 
leted, and  added  statements  changed  from  the  first  to  the 
second  version.  The  rules  for  classifying  the  typ^es  of 
maintenance  were  identified  from  the  results  and  then  conve- 
rted into  a  second  shell  program..  The  input  for  the  se- 
cond shell  program  is  the  output  from  the  first  shell  prog- 
ram. 


The  organization  B  programs  were  later  analyzed  with 
the  two  shell  programs  to  test  the  results  and  verify  the 
rules.    For  convenience,   the  first  shell  program  was  named 
Maintain  and  the  second  one  as  Classify, 

The  objectives  of  this  research  are  to  study  real- life 
COBOL  programs  to  better  understand  what  goes  on  in  the 
software  maintenance  phase,  to  develop  a  method  of  classi- 
fying t':^^es  of  maintenance  from  program  set  A  ,  and  to  check 
the  proposed  method  program  set  B. 

Chapter  2  discusses  the  data  collection  process.  Ex- 
planation of  the  COBOL  programs  and  a  brief  description  of 
program  sets  A  and  B  are  given  in  the  first  section.  Sec- 
tion 2  gives  the  definition  of  the  measurem.ents  applied  to 
calculate  the  data.  The  changes  and  altered,  deleted,  ad- 
ded statements  are  defined  in  Section  3 .  The  shell  program.s 
Maintain  and  Classify  are  described  in  Section  4.  The  shell 
programs  are  the  basic  implementation  tools  employed  to 
analyze  the  data  programs. 

Chapter  3  gives  the  results  from  running  the  organiza- 
tion A  programs.    Characteristics  of  program  set  A  are 
illustrated  in  tables  and  figures.    The  changes  between  two 
consecutive  versions  are  displayed.   The  rules  of  classifying 
the  types  of  maintenance  are  listed.   The  reasons  for  iden- 
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tifying  the  maintenance  are  explained  in  detail.  The  rules 
were  then  written  on  to  shell  program  Classify,  The  last 
section  in  Chapter  3  presents  the  results  from  running  COBOL 
programs  A  and  discusses  the  insights  into  the  maintenance  of 
the  programs. 

Chapter  4  involves  the  verification  of  the  results  in 
chapter  3  by  classifying  the  program  set  B.  All  the  pro- 
cedures and  tools  employed  are  the  same  as  in  Chapter  3 . 
Program  data  and  corresponding  results  are  represented  in 
table  or  graphic  forms. 

Chapter  5  concludes  the  study  and  suggests  recommenda- 
tions for  the  future  work. 


Chapter  2.   Data  Collection 


2-1  The  COBOL  Programs  being  Analyzed 

Why  choose  COBOL  program  to  analyze?  COBOL  is  a  prog- 
ramming language  that  has  been  designed  expressly  for  a^dmi- 
nistrative  data  processing.  It  is  a  high-level  language 
and  provides  efficient  data  collection,  data  processing,  and 
production  of  required  reports.  COBOL  is  widely  used  in 
industry  and  business  fields. 

In  Chapter  1,  we  mentioned  the  program,  sets  A  and  B 
which  are  the  data  programs  in  the  study.  The  program  set 
A,  which  consists  of  5  COBOL  programs,  was  analyzed  in  the 
beginning.  These  programs  have  various  niambers  of  versions. 
The  number  of  versions  are  4,  5,  6,  7  and  11,  respectively. 
The  total  number  of  versions  is  33.  The  lines  of  codes  also 
vary  quite  differently.  The  average  niim.ber  of  the  shortest 
program  is  270;  while  the  value  of  the  largest  is  more  than 
4650.  Table  1  displays  the  number  of  versions  and  average 
number  of  lines  in  the  5  COBOL  programs. 

As  stated  earlier,   the  program  set  E  was  applied  to 
verify  the  results  from  running  the  program,  set  A.    The 
program  set  B,   which  includes  8  COBOL  program.s,   has   20 


versions  on  each  program.    All  3  programs  have  been  opera- 
tional for  many  years. 

Program  no.  Num.ber  of  versions   Average  num.ber  of  lines 

1  6  270 

2  4  1430 

3  11  4650 

4  7  2070 

5  5  470 


Table  1.    Number  of  Versions  and  Average  Number  of 
Lines  of  Program  Set  A 


2-2   Measures  on  Types  of  Statem.ents 

In  a  COBOL  program,  a  statement  is  defined  as  a  synta- 
tically  valid  combination  of  words  and  characters.  Measu- 
ring the  numbers  of  statements  that  have  been  changed  bet- 
ween two  sequential  versions  of  a  program  is  the  basic  step 
of  collecting  data  for  the  entire  research.  Classified  by 
their  functions,  ti^jes  of  statem.ent  fall  into  8  categories: 
comment,  declaration,  assignment,  conditional,  branch, 
input-output,  label,  and  other  statements. 

The  following  notations  are  used  throughout  the  study. 

The  notations  were  devised  by  Dr.   David  A.  Gustafson  and  the 

participants  in  a  softv/are  sem.inar  at  Kansas   state  University 

TYPE  represents  the  types  of  statements  and  ALL  stands 

for  the  collection  of  all  statement  types. 
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TYPE   ::=  ALL  |  comment  ;  declaration   ; 

assignment  |  conditional  1  branch  ; 
input-output  I   label  [  other 

comment   ::=   spacing  purposes  |   textual 

assignment  : :=   MOVE  \    ADD  [  SUESTRACT  \    COMPUTE 

conditional   ::=   if  |  ELSE  ]  ON  I  AT  END 

branch     : :=   CAXL  |  PERFORM  ]  GOTO  ;  NEXT  |  EXIT 

input-output  ::=   DELETE  j  DISPLAY  \    OPEN  |  READ; 

WRITE  I  rewrite' 


other      :  :  =   EXAJIINE  \    INSPECT  !  SEAR.CH  I  SORT 


SET  I  EXEC  CICIS  I  GOBACK 


I 


2-3  The  Changes;   Altered,  Deleted,  and  Added  Statements 

Measuring  the  change  to  the  code  is  an  objective  indi- 
cator of  the  maintenance  process  itself.     Analyzing  chan- 
ges  between  versions  is  a  good  approach  to  investigate  what 
types  of  maintenance  are  really  m.ade  to  the  programs. 

In  reality,  statements  referring  to  changes  have  three 
different  kinds:  altered,  deleted,  and  added  statements. 
Altered  statements  can  be  m.eant  to  specified  statements 
existing  in  two  versions;  however,  a  variable  is  different 
in  its  values,  a  statement  is  moved  to  "comment"  statem.ent 
because  of  putting  asterisk  in  front  of  it  by  special  pur- 
pose, or  statements  switched  to  another  t^^e  based  on  prog- 
ramm.er's  need,   etc.    Deleted  statements  show  on  the  origi- 


nal  version  but  are  missing  from  the  second  version.   Added 
statements  are  inserted  to  the  original  version. 

For  the  convenience  of  notational  representation,  let 
Changes       ::=  Altered  |  Deleted  |  Added 


Changes [ALL] 
Changes [TYPE] 
Altered [TYPE] 
Deleted [TYPE] 
Added [TYPE] 


:=  Altered [ALL]  ^   Deleted [ALL]  + 
Added [ ALL ] 

:=  Altered [TYPE]  +  Deleted [TYPE]  + 
Added [TYPE] 

:   Number  of  Statements  of  specified 
TYPE  that  have  been  altered . 

:  Number  of  Statements  of  specified 
TYPE  that  have  been  deleted 

:  Number  of  Statements  of  specified 
TYPE  that  have  been  added. 


2-4  Tools  for  Analyzing  Data  Programs 

The  shell  program  Maintain  which  invokes  several  UNIX 
utilities  such  as  diff  and  grep,  was  v;ritten  to  analyze  the 
COBOL  programs.  six  modules  are  included  in  the  program; 
they  are  checking,  preprocessing,  distinguishing,  differen- 
ce, calculation,  and  report  modules.  Each  module  has  its 
special  function.  Figure  1  gives  the  flow  chart  of  the  shell 
program  Maintain.  The  inputs  are  two  versions  of  a  COBOL 
programs.  The  input  sequence  has  to  be  the  same  order  for 
the  comparison  purposes.    The  executing  command  "Maintain 


Checking     module 


Preprocessing      module 

Distinguishing      module 

'f 

Difference      module 

1 

r 

Calculation      module 

1 

^ 

Report      module 

Figure     1  Flow     chart     of     the     Shell     program     Maintain 
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version. 1  verion.2"  reports  the  output  which  lists  the  re- 
sults changed  from  version. 1  to  version. 2.   In  reverse,  the 
command  "Maintain  version. 2  version. 1"  generates  the  report 
which  contains  the  data  modified  from  version. 2  to  ver- 
sion. 1.    The  output  of  the  program  Maintain,   assuming  the 
comm.and  "Maintain  version.  1  version.  2",  includes  the  n^^mbers 
of  statements  in  version. 1  and  the  overall  numbers  of  state- 
ments in  altered,   deleted,   and  added  statements  from  ver- 
sion. 1  to  version. 2.    Appendix  A  lists  the  program  Main- 
tain.  Two  example  COBOL  program.s  Version.  1  Version.  2  are 
given  in  Appendix  B  and  C.   Appendix  D  shows  the  result  from 
running  the  Maintain  program  on  the  two  versions.   The  fun- 
ction of  each  module  in  the  program  Maintain  is   described 
as  below. 

a.  Checking  module 

Every  COBOL  program  consists  of  four  divisions  in'  the 
following  order:  identification,  environment,  procedure  and 
data  divisions .  The  checking  m.odule  checks  to  verify  the 
existence  of  all  four  divisions  in  the  tv/o  input  data  prog- 
rams. Error  messages  referring  to  the  absence  of  divisions 
are  printed  out  in  case  of  the  missing  of  any  division. 
Program  terminates  if  errors  are  detected. 

b.  Preprocessing  module 

The  preprocessing  module  removes  all  superfluous  blank 
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spaces,  tabs,  and  blank  lines.  If  the  difference  of  a  sta- 
tement in  version. 1  and  the  version. 2  is  only  the  addition 
or  deletion  of  a  blank  space,  it  should  not  be  marked  as 
altered.  The  same  situation  can  be  extended  to  the  inser- 
tion or  removal  of  blank  lines  simply  for  spacing  purposes. 
This  module  also  removes  numbers  from  tail  end  of  lines. 
The  numbers  attached  at  the  end  of  lines  have  no  meaning. 
COBOL  programs  use  it  as  marked  symbol  to  easily  identify  a 
sequence  of  codes. 

c.  Distinguishing  module 

This  module  assigns  unique  characters  to  every  state- 
ment in  order  to  identify  types  of  each  particular  state- 
ment. The  function  ensures  that  each  statement  can  be  pro- 
perly identified  after  changes  are  made.  For  example,  all 
the  statements  in  the  identification  division  are  prefixed 
with  "Comjnent".  In  the  environment  division,  the  statements 
are  m.arked  with  "Env".  The  FILE  SECTION  and  v^ORKINQ- 
STORAGE  statement  in  procedure  division  are  attached  with 
"DeSetn".  The  rest  of  statements  in  procedure  division  are 
added  with  "Dlrtn" . 

d.  Difference  module 

The  difference  module  utilizes  the  "diff"  function  to 

find  the  differences  between  two  versions.    It  compares  two 

versions  of  program  and  notes  altered,   deleted,   and  added 

statem.ents.    Three   temporary  files  are  created  once  the 
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altered,  deleted,  and  added  statements  are  in  existence. 
The  files  v;hich  store  the  deleted  and  added  statements  copy 
the  statements  from  the  analyzed  versions.  The  file  having 
the  altered  statements  contains  the  old  statements  and  the 
new  statements.  If  there  are  several  places  that  state- 
ments are  altered,  we  name  each  place  as  a  block  of  altered 
statements. 

e.  Calculation  module 

The  calculation  module  computes  the  numbers  of  respec- 
tive type  of  statements.    The  module  generates  overall  n-om.- 
bers  of  typ^es  of  statements  for  version.  1.   Three  temporary 
files,   if  they  exist,  are  also  analyzed  by  this  module  to 
produce  output. 

f .  Report  module 

The  report  module  produces  output  for  the  shell  program. 
Maintain.  The  output  includes  the  overall  analysis  of  the 
statements  in  version. 1.  It  displays  the  number  of  state- 
ments in  version. 1.  The  result  also  lists  the  numbers  of 
statements  in  altered,  deleted,  and  added  statement,  if  they 
exist.  The  actual  altered,  deleted  and  added  statements 
are  displayed  at  the  end  of  the  output.  It  is  easy  to 
identify  the  statements  by  the  use  of  the  special  characters 
which  were  added  in  the  distinguishing  module. 

The  algorithm.s  for  developing  the  shell  program  Classi- 
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fy  are  based  on  the  rules  for  classifYing  types  of  maintena- 
nce. The  rules  and  corresponding  algorithjns  will  be  des- 
cribed in  chapter  3 . 
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Chapter  3 .    Result  of  Analysis 


3-1  Program  Characteristics 

Program  set  A,   consisting  of  5  different  program.s  with 
3  3  versions,   was  initially  introduced  to  be  analyzed  by  the 
tools.   Maintain  and  Classify  shell  program.s.   Table  2  illus- 
trates the  characteristics  of  program  set  A.    The  minim.^-Lm 
and  raaxim.ijm  numbers  of  statements  are  given  to  represent  the 
structure  of  statements  in  each  program.    Figure  2  gives 
the  programs'  characteristics  by  means  of  graphic  form.    of 
the  8  types  of  statements,   numbers  of  input-output,   label, 
and  other  statements  are  ignored  because  of  their  relatively 
small  number  com.pared  to  the  rest  of  the  five  ti'pes  of  sta- 
tements.   Investigating  the  graph,   it  is  easy  to  realize 
that  assignment  statements  play  an  important  role  in  program 
set  A.   However,  comment  statements  also  are  significant  due 
to  their  frequent  occurrence. 


3-2  The  Changes 

The  shell  program  Maintain  runs  two  sequential  versions 
of  a  program.    The  results  of  analysis   on  program  set  A 
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are  28  deltas.  The  contents  of  a  delta  includes 
Nijmber[TYFE]  of  each  statement  and  Altered [  TYPE  ] , 
Deleted[TYPE] ,  and  Added  [TYPE]  between  the  original  and  new- 
versions.  In  addition  to  these  numbers,  the  statements 
being  changed  are  also  listed  as  part  of  the  content  of  a 
delta.  The  raw  data  of  Altered [ TYPE ] ,  Deleted[TYPE] ,  and 
Added[TYPE]  in  the  28  delta  are  shown  on  Table  3,  4,  and  5, 
respectively. 


3-3  Types  of  Maintenance 

From  the  28  deltas  with  attached  listings  of  changed 
statements,  six  types  of  maintenance  were  identified;  they 
were  corrective,  adaptive,  retrenchment,  retrieving,  pretty 
printing,  and  documentation  maintenance.  Compared  with 
the  three  classical  types  of  maintenance  proposed  by  Swan- 
son,  it  is  clear  that  perfective  maintenance  was  excluded 
from  the  classification  and  replaced  with  retrenchment,  ret- 
rieving, pretty  printing,  and  docijm.entation  maintenances. 
The  reason  of  excluding  perfective  maintenance  from  classi- 
fication is  due  to  the  difficulty  of  predicting  the  intention 
of  the  programmer  doing  the  enhancement.  The  reason  for 
the  programmer  to  update  sources  code  is  too  complicated  to 
trace  simply  from  investigating  changed  statements.      The 

changes  on  the  rest  of  statements  may  be  a  side  effect  of 
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changes  to  coinment  statements. 

The  definitions  of  six  types  of  maintenance  are  given 
as  below: 

a.  Corrective  maintenance: 

The  corrective  maintenance  is  the  maintenance  attribu- 
ted to  minor  revision  on  the  original  version.  Correcting 
errors  or  failures  from  source  codes  is  also  identified  as 
corrective  maintenance.  The  corrective  m.aintenance  results 
in  statements  being  altered  as  v;ell  as  a  few  statements  being 
added  and/or  deleted. 

b.  Adaptive  maintenance: 

The  adaptive  maintenance  concerns  the  addition  of   new 
functions  or  the  deletion  of  old  functions  from  the  original 
codes  to  meet  external  environment  requirement.   In   this 
type  of  maintenance,   there  are  a  lot  of  statements  added  or 
deleted  in  addition  to  a  few  statements  changed. 

c.  Retrenchment  maintenance: 

The  retrenchment  maintenance  temporarily  removes  a 
function  from  executable  code  by  adding  asterisks  in  front 
of  the  statements.    The  original  code  is  converted  to  docu- 
ment or  comment  statem.ents.   An  example  of  retrenchment  main- 
tenance is  as  follow: 
Statements  in  original  version: 
IF  MAORD  =  'A'  2  2 


GO  TO  0530-READ-MATLDESC-PTJRCHSPECS 
IF  MAORD  =  'N' 

GO  TO  0530-READ-MATLBESC-PURCHSPECS 

Statements  in  new  version: 

*  IF   MAORD   =    'A'       GO   TO    0  5  30-REAJ)-MATLBESC-PURCHSPECS 

*  IF   MAORD   =    'N'       GO   TO    0530-READ-MATLDESC-FURCHSPECS 

Note  that  they  are  not  only  adding  coinraents  but  also 
combining  four  lines  into  two  lines . 

The  result  of  retrenchment  maintenance  increases  the 
NiJLmber [ comment  ]   from  the  original  version  to  the  new  ver- 
sion.    It  may  also  decrease  the  numbers  of  statements 
between  two  versions. 

d.   Retrieving  maintenance: 

The  retrieving  maintenance  removes  asterisks  from  com.- 
ment  or  documentation  statements  and  brings  the  statements 
back  into  service.  The  changed  statem.ents  becom.e  part  of 
the  executable  code.  The  retrieving  maintenance  is  the  re- 
verse of  retrenchment  maintenance.  An  example  of  retrie- 
ving maintenance  is  listed  as  below: 

Statements  in  original  version: 
* 

*  IF  EIBTRMID  NOT  =  '302M'  OR  EIBTRMID  NOT  =  '700Q' 

*  EXEC  CICS 

*  SEND  TEXT  FROM ( NICE -TRY-MESSAGE_ 

23         ~ 


*  LENGTH 

*  ERASE 

*  FREEKB 

*  END -EXEC 

*  EXEC  CICS 

*  RETRUN 

*  END -EXEC 

Statements  in  new  version: 

IF  EIBTRMID  NOT  =  '302M'  OR  EIBTRI^ID  NOT  =  '^QOQ' 

EXEC  CICS  SEND  TEXT  FROIVK NICE-TRY-MESSAGE  LENGTH  ER_ASE  FREEKB 

END-EXEC  EXEC  CICS  RETRUIT   ND-EXEC 

e.  Pretty  printing  maintenance: 

The  pretty  printing  maintenance  simply  add  asterisks 
for  spacing  purposes.  There  is  no  other  function  added  or 
deleted.  The  objective  of  pretty  printing  is  to  allow 
program  to  be  easy  to  read.  The  pretty  printing  maintena- 
nce increases  Number [ comment ]  in  the  new  version  and  does 
not  change  other  statements. 

f .  Documentation  maintenance : 

The  documentation  maintenance  is  the  addition  of  com.- 
ment   statement  to  a  program.    This  is  different  from  pretty 
printing  maintenance.   The  documentation  m.aintenance  puts 
descriptions  or  explanations  just  before  a  block  of  source 
codes.  Veil -documented  program,  can  reduce  the  effort  of  the 
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reader  to  understand  the  program.  The  nijmber  of  statements 
changed  in  documentation  maintenance  is  similar  to  that  of 
pretty  printing  maintenance. 


3-4  Precise  Rules 

The  precise  rules  for  classifying  typ^es  of  maintenance 
are  analyzed  from  the  empirical  data  received  from  executing 
the  shell  program  Maintain  on  program  set  A,  The  rules 

were  converted  into  the  shell  program  Classify  (see  algo- 
rithm in  Appendix  E)  .  The  input  for  the  Classify  program. 
is  the  output  from  the  Maintain  program.  Appendix  F  gives 
an  example  result  from  running  the  program  Classify.  The 
discussion  of  the  rules  on  correction  and  adaptive  m.aintena- 
nces  is  grouped  together  because  of  their  similar  situation. 
The  same  condition  can  be  applied  to  retrenchment  and  ret- 
rieving, as  well  as  pretty  printing  and  documentation. 

a.    Corrective  and  Adaptive  maintenances: 

Here  a  block  of  statements  altered  is  defined  as  a 
series  of  statemients  altered.  If  there  are  more  than  three 
blocks  of  statements  in  which  the  lines  of  codes  are  modi- 
fied, or  the  addition  and  deletion  of  statements  other  than 
comment  statements  is  greater  than  10,  the  delta  is  classi- 
fied as  adaptive  maintenance.  Otherwise,  it  is  said  to  be 
corrective  maintenance.    The  term  "modified  block"  is  de- 
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fined  as  a  block  where  the  ratio  of  NiJinber[TYrEj   in  two 
versions  is  greater  than  2  if  Niamber[TYPE]  in  tv/o  versions 
are  both  more  than  10,   or  the  ratio  is  greater  than  5  if  one 
of  Number  [TYPE]  is  less  than  10.    Detailed  algorithrr.s  can 
be  found  in  the  shell  program  Classify  in  Appendix  B. 

b.  Retrenchment  and  Retrieving  maintenances: 

In  both  types  of  maintenance,  there  are  some  altered 
and  no  deleted  or  added  statements.  The  altered  statements 
cause  the  changes  of  comment  statements.  Number [ comment ]  is 
decreased  from  original  version  to  new  version  in  retren- 
chment maintenance.  The  value,  however,  is  increased  in 
retrieving  maintenance. 

c.  Pretty  printing  and  Documentation  maintenances: 

For  both  t-ypes  of  maintenance,  the  increase  or  decrease 
of  Niomber  [  comment  ]  is  due  to  the  addition  or  deletion  of 
comment  statements.  if  the  goal  of  added  or  deleted  comm.ent 
statements  is  for  spacing  purpose  only,  the  ti^pe  of  maintena- 
nce is  classified  as  pretty  printing  maintenance.  Other- 
wise, it  is  documentation  maintenance.  The  shell  program 
Classify  can  distinguish  between  these  two  t^^pes  of  m.ainte- 
nance . 


3-5  Result  and  Discussion 

The  result  of  types  of  maintenance  in  28  deltas  from 
program  set  A  is  illustrated  on  Table  6.  The  empirical  data 
are  collected  in  Table  3,  4  and  5.  Of  the  28  deltas,  there 
exists  single  types  and  combination  of  tv/o  or  three  types  of 
maintenance.  For  simplicity,  the  combination  of  corrective 
and  documentation  maintenance  is  expressed  as  corrective  & 
documentation  maintenances.  This  example  extends  to  any 
combination. 

Program  A-1  consists  of  6  versions  and  5  deltas.  As 
there  is  only  1  statement  altered,  delta  1  is  classified  as 
corrective  maintenance.  In  delta  2,  original  Number [com- 
ment] and  new  Number [ comment ]  are  equal  to  59  and  69,  respe- 
ctively. The  increment  of  10  comm.ent  statements  is  due  to 
3  statements  in  original  version  converting  to  10  comjn.ent 
statements  in  new  version.  As  result,  delta  2  is  classified 
as  retrenchment  maintenance.  The  decrement  of  11  comment 
statements  in  delta  3  is  from  11  original  statements  modi- 
fying to  3  new  statements.  From  the  classification  rules, 
it  is  clear  that  delta  3  is  retrieving  maintenance.  The 
modification  in  delta  4  is  sim.ilar  to  that  in  delta  1. 
Delta  5  has  fwo  types  of  maintenance,  corrective  &  pretty 
printing.  The  pretty  printing  m.aintenance  can  be  identi- 
fied from  the  value  of  Added  [comment]  v/hich  is  e^qiaal  to  the 
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increment  of  Niamber[ comment]  betv/een  two  versions.   Correc- 
tive maintenance  is  determined  by  the  values  of  De- 
leted [TYPE]  and  Added [TYPE]. 

Program  A-2  includes  4  versions.  Delta  6  and  7  are 
retrenchment  and  the  reason  of  classification  is  the  sam.e  as 
from,  delta  2.  Delta  8  has  three  types  of  maintenance, 
corrective  &  retrenchment  S  pretty  printing.  The  4  added 
comment  statements  result  in  the  pretty  printing  maintenan- 
ce. The  retrenchment  maintenance  is  attributed  to  altered 
statements  from  4  to  2  statements.  The  9  added  statements, 
however,  are  classified  as  corrective  maintenance. 

Deltas  9  to  18  belong  to  program  A-3.   Of  the  ten 
deltas,   five  deltas  are  classified  as  corrective  m.aintenan- 
ce.    Delta  11  has  corrective  &  retrenchjnent  types.    Delta 
13  has  three  types  of  maintenance.    The  3  added  com.ment 
statements  belong  to  pretty  printing  maintenance.    one 
block  of  altered  statements  belongs  to  retrenchment   mainte- 
nance.   The  other  block  and  the  added  statements,   hovrever, 
are  classified  as  corrective  maintenance.    Delta  15  and  16 
have  corrective  &  pretty  printing  maintenances.   In  delta  IS, 
the   increment  of  comment  statem.ent  is  identified  as  retren- 
chment maintenance  which  came   from  altered  statements .    Of 
the  altered  statements,   some  contributed   to  corrective 
maintenance . 
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Of  six  deltas  in  program  A-4,   there  are  3  deltas  clas- 
sified as  corrective  maintenance.   Deltas  21  and  22  have  the 
similar  modification  except  that  delta  21  is  dociimentation 
and  delta  22  is  pretty  printing  maintenance.     The  she 
program  Classify  can  make  the  distinction.    In  delta  24, 
added  comment  statements  have  tv;o  t^pes,   pretty  printing  S 
documentation.    The  other  changed  statem.ents  contribute  to 
adaptive  maintenance. 

In  program  A-5,  delta  25  is  adaptive  t-fpe  because  lots 
of  statements  added  or  deleted.  Deltas  26  and  27  are  classi- 
fied as  adaptive  ^  documentation  maintenance.  The  altered 
15  comment  statem.ents  cause  the  decrease  of  comment  state- 
ments in  delta  28,  therefore,  the  delta  is  said  to  be  ret- 
rieving m.aintenance  in  addition  to  corrective  maintenance. 

Figures  3  and  4  illustrate  the  overall  analysis  on 
program  set  A.  Figure  3  displays  the  n-ombers  of  deltas  on 
types  of  maintenance-  The  niomber  of  deltas  v/hich  only  has 
corrective  type  is  10.  None  of  the  deltas  which  have  docu- 
mentation and  pretty  printing  maintenance.  There  exists  only 
3  deltas  owning  three  types  of  maintenance.  It  is  verified 
that  program,  maintainer  did  not  change  many  things  on  any 
version  of  program  set  A.  Figure  4  lists  the  percentage 
of  occurrence  on  each  type  of  m.aintenance. 


The  rules  described  in  previous  section  were  used  to 
classify  typ^es  of  maintenance  in  program  set  A.     In   next 
chapter,   the  rules  are  verified  with  program  set  B,   which 
are  received  from  different  environment. 
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Chapter  4.   Classification 


4-1   Data  Programs 

Program  set  B,  which  includes  8  programs,  v;as  ob- 
tained from  a  data  processing  environment.  These  programs 
have  been  in  use  for  more  than  10  years.  For  each  prog- 
ram, 20  versions  were  received  and  analyzed  with  the  shell 
programs  Maintain  and  Classify  to  verify  the  classification 
rules  proposed  in  chapter  3.  The  result  generates  19  del- 
tas on  each  program  and  a  total  nijmber  of  152  on  program  set 
B.  From  the  sequence  of  maintenance  on  a  specific  prog- 
ram, it  indicates  the  types  of  maintenance  and  identifies 
what  is  really  made  to  the  modification  on  the  source  codes 
during  the  maintenance  period.  The  classifications  were 
then  compared  to  the  maintainers '  comm.ents . 


4-2  Result 

In  the  19  deltas  from  program  B-1,   there  are  3  correc- 
tive,  13  corrective  &  documentation  ,  2  corrective  &  retren- 
chm.ent  &  docjm.entation  maintenance,   and  1  adaptive  S  retren- 
chment s  doc^jmentation  maintenance  (see  Table  7).   The  13 
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corrective  ^  documentation  maintenance  delta  have  similar 
changed  value  set.  It  is  easy  to  make  distinctions  on  these 
ti^-pes  of  maintenance.  All  the  increment  of  Number [ comm.ent ] 
results  from  the  number  of  Added [ comment ] .  Additional  chan- 
cjed  statements,  however,  contribute  to  corrective  maintenan- 
ce. 

On  program.  3-2,   10  corrective  and  7  corrective  ^  docu- 
ment maintenance  v;ere  found  during  the  analysis.   Delta  11 
is  classified  as  corrective  &  retrenchment  m.aintenance . 
Delta  1  does  not  have  any  modification  at  all.   The  result 
of  program  3-2  is  represented  on  Table  8. 

From  delta  1  through  11,  the  modifications  on  program 
B-3  v/ere  steady  except  for  delta  4  being  classified  as  adap- 
tive &  pretty  printing  maintenance.  The  changes  in  deltas 
^2,  13  ,  and  14  were  large  comparing  to  the  rest  of  deltas. 
In  these  phases,  a  com±3ination  of  4  types  of  maintenance 
were  identified.  In  addition  to  the  high  occurrence  of 
maintenance  types,  the  altered  numbers  v;ere  also  verv  high. 
Delta  15  was  back  to  general  modification.  Delta  16  was 
adaptive  S  docu.m.entation  maintenance.  Delta  l^  includes 
retrenchment  and  retrieving  maintenance  together,  which  is 
seldom  found  in  the  classification  of  program  set  3.  Delta 
18,  like  delta  1  in  program  3-2,  has  not  any  change.  The 
last  delta  is  only  corrective  maintenance. 
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During  the  changes  on  program  3-4,   the  modifica- 
tions were  steady  from  the  result  shown  on  Table  10.    Only 
types  of  corrective  and  corrective  S  docuiiientation  maintena- 
nce  were  identified.   Of  the  19  deltas,   16  delta  were 
corrective  &  documentation  and  3  were  corrective  maintenan- 
ce. 

There  is  only  corrective  &  documentation  maintenan- 
ce in  changes  after  delta  9  on  program  B-5.  During  the 
early  changes,  4  of  8  deltas  were  also  classified  as  correc- 
tive S  documentation  maintenance.  Two  deltas  were  correc- 
tive maintenance  only.  Delta  3  is  classified  as  corrective 
&  retrenchm.ent  s  documentation  maintenances  and  delta  5  is 
adaptive  &  documentation  maintenance  (see  Table  11). 

Program  B-6   includes  7  corrective  and  corrective  S 
doc-omentation  maintenances,   respectively.   The  rest  of  the 
deltas  contains  combination  of  types  of  maintenance.    Delta 
16,   17,   and  18  all  include  adaptive  maintenance.    Delta  9 
is  the  only  one  without  corrective  maintenance.    It  i.= 
classified  as  retrenchment  &  documentation  maintenances. 
Detailed  results  are  shown  in  Table  12. 

Corrective  and  documentation  maintenances  are  two  types 
which  exist  in  the  changes  on  program  B-7  (see  Table   13). 
Nine  ^corrective  and  9  corrective  &  documentation  maintenance 
ti'pes  are  classified  from  the  program.  Classify. 
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The  results  on  program  3-8  is  similar  to  that  on  prog- 
ram  B-7,   Fourteen  deltas  with  corrective  S  docum.entation 
maintenance  were  classified.   Delta  15  is  the  only  one 
classified  as  adaptive  maintenance. 


From  the  results  collected  from  152  deltas  on  program 
set  B,  the  comibination  of  corrective  and  doc'imentation  types 
were  the  most  frequently  occurring  maintenance;  81  deltas 
belong  to  this  combination  types  of  m.aintenance .  Added 
comment  statements  in  the  identification  division  contribute 
to  docum.entation  m.aintenance  and  the  changed  statements 
resulting  in  corrective  maintenance.  It  is  concluded  that 
most  maintainers  explained  what  they  m.odified  in  the  identi- 
fication division  and  gave  actual  changes  in  the  procedure 
division.  The  percentages  of  occurrence  on  each  type  of 
maintenance  for  program,  set  B  are  represented  on  Table  5 . 
In  contrast  to  the  same  representation  from  program  set  A, 
pretty  printing  m.aintenance  happened  at  lower  percentage. 


4-3   Validation 

The  classifications  were  checked  against  the  explanations 

for  the  changes  given  by  the  maintainers  as  comments  in  the 

environment  section.    None  of  the  explanations  contradicted 

the  classifications  made  by  the  classify  program.    However, 

3  3 


the  classifications  gave  a  better  indication  than  the  com- 
ments about  v;hat  types  of  activity  had  occurred.  Thus,  we 
feel  that  rules  were  successful  in  classifying  the  maintai- 
nence  activities. 
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Chapter  5 .   Conclusion  and  Future  Work 


Chapter  3  gave  the  results  of  this  study  on  the  COBOL 
program  set  A.  The  classification  rules  v/ere  presented  to 
distinguish  various  types  of  maintenance.  six  types  of 
maintenance  were  identified  from  the  changes  on  sequential 
versions  of  the  program.s.  The  rules  are  in  the  effort  to 
classify  types  of  maintenance  on  program  set  A.  Then  the 
classification  rules  were  used  to  verify  the  results  from 
the  analysis  on  the  program  set  3,  which  came  from  another 
environment.  The  result  of  classification  are  also  found 
to  be  satisfactory  by  comparing  them  with  the  maintainers' 
comments . 

The  study  presents  a  method  of  classifying  ti^pes  of 
maintenance  from  empirical  data  of  changes  betv;een  two  ver- 
sions during  maintenance.  By  means  of  the  tools,  the  shell 
programs  Maintain  and  Classify,  managers  can  easily  identify 
the  tiTpes  of  maintenance  existing  in  the  sequential  modifi- 
cation to  a  specific  program.  in  an  effort  to  reduce  the 
cost  of  maintenance,  managers  can  take  the  method  as  a 
reference  with  which  to  evaluate  their  m.aintenance  effort; 
this  m.ethod  will  give  them  an  objective  classification  of 
their  effort. 
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Reconrnendations  for  the  future  v;ork  for  this  study  are 
proposed  as  following: 

1)  Validate  the  presented  method  with  more  COBOL  prog- 
rams from  different  sources  to  check  the  effectiveness  of 
classifying  ti'pes  of  m.aintenance  from  the  tools. 

2)  Modify  and  extend  the  tools  to  test  the  results  of 
programs  written  by  other  languages.    Are  the  method  and 
rules  good  enough  to  classify  t3fpes  of  maintenance  in  other 
languages? 

3 )  Six  types  of  m.aintenance  v/ere  classified  in  this 
study  from  the  analysis  on  program  set  A.    More  classifica- 
tion types  could  be  embedded  in  COBOL  programs. 

4)  The  presented  rules  v/ere  satisfactory  in  classi- 
fying m.aintenance  types.   Refinem.ent  of  the  rules  is  sugge- 
sted to  distinguish  more  m.aintenance  types . 
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Appendix  A.     The  Shell  Program  Maintain 
t 

t  Shell    program:      Maintain 
I 

#  The  program  calls  the  folloHing  aubprogran: 
t  maintain,  aux  maintain,  auxa 

I  maintain,  auxb  maintain,  auxc 

I  maintain,  auxl 

echo  ANALYSIS   FOR:      $1      $2  >   $1.1i3t 

echo  »  $1.1i3t 

echo  -n  $1'    '$2»    '   »  0. stata 

# 

#  ■  Checking  modul^  ■ 
I       •■■•■•••••■••■■••■••■■•■■■■■•fliitii.i 

# 

#  checks   to  aee  if  divisions  are  present  in  file  one 
awk  ' 

BEGIN    {  iflag  =  0;   eflag  =  0;  dflag  =  0;    pflag  =  0  ) 

/IDENTIFICATION   DIVISION./    {   iflag  =   1    } 

/ENVIBONMENT  DIVISION./    (   eflag  =   1    } 

/DATA  DIVISION./    {    dflag   =    1    ) 

/PROCEDURE  DIVISION/    {    pflag  =   1    ) 

END   {  if   (iflag  +  eflag  +  dflag  +  pflag   |r  i))    {   print  5   >   "err1"    })•   $1 

if   (test  -f  errl) 

then     exit  1 

fi 

#  checks  to  aee  if  divisions  are  present  in  file   two 
awk   ' 

BEGIN    {   iflag  r  0;   eflag  =  0;   dflag  =  0;    pflag  =  0   } 

/IDENTIFICATION    DIVISION,/    {    iflag   =    1    J 

/ENVIRONMENT  DIVISION./    {   eflag  =   1    ] 

/DATA  DIVISION./    {   dflag  r  1    ) 

/PROCEDURE  DIVISION/    {   pflag  =   1    } 

END   {  if  (iflag  +  eflag  +  dflag  +  pflag   |=  H)    {   print  5   >  "err2"    )}•   42 

If  (test  -f  err2) 

then  exit  2 

fl 

i 

#  ■■■■■i«iiii«i«iffiiifliii»i*tti«iiff«iiiflii«««a 

#  ■  Preprocessing     module  • 

#  ■■■•••■•iii«fliiifiiiifl«ia««a«««i«««fiiiii,.s 

# 

#  removes  numbers  from   tail   end  of  lines 

awk  '{prlntf   "$s   ",      $0;      printf   "t%tt\no   ]•   $1      | 

sad   '3/ «##//•     >  $1.n 

awk  '{printf   "Js   »,      $0;      printf   "IJ{##\n"   }  •  $2     | 

sed   's/ «##//•     >  $2.n 

« 

#  removes  skips  and  ejects  from  file 
sed   •/   EJECT/  d 

/  SKIP/  d'   $1.n  >  $1.nnn 
sed   •/  EJECT/  d 

/   SKIP/  d'   $2.n  >  $2.nnn 
rm  $1.n  $2.n 
I 

I       install   End  of   program  marker   on  both  files 
echo  EnD  0000000  >   $1.temp 
cat  $1.temp  »  $1.nnn 
cat  $1.temp  »  $2.nnn 
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■  |'Print~out  messages  regarding  the  presence   or    absence   of   divisions 
f     for   file  1    the  file  has  been  preprocessed  and  appropriate 
t     divisions  Inserted     without   leading  blanks 
echo   "LIST  OF  MISSING    DIVISIONS   FOfl    »    $1    >>   $1.1i3t 

# 

echo  »  $1.1i3t 

awk   ' 

BEGIN    (   iddlv  =  0;   envdiv  =  0;   datadiv  =   0;    prodiv  =   0   } 

/   IDENTIFICATION   DIVISION./    {   iddiv++;    next    } 

/  ENVIRONMENT  DIVISION./    {   envdiv++;   next    } 

/  DATA  DIVISION./    {   datadlv++;   next    ) 

/   PROCEDOHE  DIVISION/    {   prodiv++;    next    ) 

END    [prlntf   "Jd   Jd   Jd  Jd   ", iddlv, envdiv, datadiv, procdiv    »  "0. stats"; 

If   (iddlv  ==  0)    I   print   "•••  IDENTIFICATION   DIVISION   MISSING    •••"    ); 

If   (envdiv  ==  0)    (   print   "•••  ENVIRONMENT  DIVISION   MISSING    •••"    }; 

if   (datadiv   ==  0)    {    print    "•••  DATA  DIVISION   MISSING    •••"    }; 

if   (prodlv=rO)    {print    "•••  PROCEDURE  DIVISION   MISSING    •••"})»   $1  .nnn»$1  .list 
echo  »  $1.11st 
echo  "END  OF  LIST"   »  $1.1i3t 
echo  »  $1.1iat 

« 

I  print  out  messages  regarding  the  presence   or   absence   of  divisions 

I       for  file2    the  file  has  been  preprocessed  and  appropriate  divisions 

f       inserted  without  leading  blanks 

echo  "LIST  OF  MISSING    DIVISIONS  FOR   "   $2  >>  $1.11st 

echo  »  $1.1l3t 

auk  • 

BEGIN    {   iddlv   =  0;    envdiv   =  0;   datadiv   =   0;    prodiv   =   0    ) 

/  IDENTIFICATION   DIVISION./    {   iddiv++;   next    ) 

/  ENVIRONMENT  DIVISION./    {   envdiv++;    next    ) 

/  DATA  DIVISION./    {   datadiv++;    next    ) 

/   PROCEDURE  DIVISION/    {   prodlv++;   next    1 

END   {prlntf   "Jd   )td   Jd  $d   ",  iddlv,  envdiv,  datadiv,  procdiv   »  "0.  stats"; 

if   (iddlv   ==  0)    {   print    "•••  IDENTIFICATION    DIVISION   MISSING    •••"    }; 

If   (envdiv  ==  0)    {   print   "•••  ENVIRONMENT  DIVISION   MISSING    •••"    ); 

If   (datadiv  ==   0)    {   print   "•••  DATA  DIVISION   MISSING    ••■"    }; 

if   (prodlv==0)    {print    "•••  PROCEDURE  DIVISION   MISSING    •••")}•   $2.nnn»|1.1i3t 

echo  »  $  1.11st 

echo  "END  OF  LIST"   »  $1.1l3t 

echo  »  $1.1 1st 

# 

I  ■•■■■■•••■•■■■•••••^••■•■•■■••■■■•■•■•■» 

I         •  Distinguishing     nodule  • 

« 

#         flags  statements  In  the  environment  division  in  file  one 

auk   '/ENVIRCN^ffiNT  DIVISION./ , /DATA  DIVISION./    { 

if   (($1   ==   "ENVIflCNfCNT"    II    $1   ==   "DATA")    &&   $2  ==   "DIVISION.") 

(   print  $0;  next   } 

else 

(  prlntf  "J3  ",    $0;   prlntf  "En»\n";  next   )    } 

/./    {   print   $0  )•   il.nnn  >  $1.nnnn 

ra  $1.nnn 

f  flags  statements  in  the  environnent  division  In  file  two 

awk   '/ENVIRONMENT  DIVISION./ , /DATA  DIVISION./    { 

If   (($1   ==   "ENVIRONMENT"    II    $1   ==   "DATA")   &&   $2  ==   "DIVISION.") 

(  print  $0;  next   } 

else 

{  prlntf   "Js   ",    $0;    prlntf   "Env\n";   next    }    ) 

/./    {   print   $0  1'   $2.nnn  >  $2.nnnn 

ra   $2.nnn 
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f 

f       flags   comment   lines  in  file   one 

awk    '/IDENTIFICATION    DIV ISICN. /, /ENVIRONMENT   DIVISION./    ( 

if    (($1    ==    "IDENTIFICATION"    |  I    $1    ==    "ENV  Ifi  CNKJENT" )    44    $2   ==    "DIVISION.") 

{    print   $0;    next    J 
else 

{   prlntf    "Comment        JsXn",    $0;    next    )    } 
/./    {   print  $0  }•   $1.nnnn  >  jl.nnnnn 
ro  $1.nnnn 

I       flags   comment  lines  in  file  two 

awk   '/IDENTIFICATION   DIVISION./ ,/ENVIfiCNMENT  DIVISION./    { 

if   (($1    ==   "IDENTIFICATION"    ||    $1    ==    "ENVIflCNMENT")    44    $2   ==   "DIVISION.") 

(   print   $0;   next   ) 
else 

{   prlntf   ^Comment       ?s\n",    $0;   next    }    } 
/./    (   print   $0  ]'   $2.nnnn  >  $2.nnnnn 
m  $2.nnno 
I 

f     separates  declarations  into  declaration  part  and  initialization  part 
#.         for  file  one 
awk  ' 

/DATA  DIVISION. /,/PHOCEDORE  DIVISION/    { 

if   (($1=="DATA"    II    $1=="PR0CED0RE")   44   ($2=="DIVISI0N. ")    I|    (3ubstr($1 ,1 , 1 )=="•") ) 
(   print   $0;   next    } 
else 

{  if   ($1   ==   "FILE"    II    $1   ==   "WORKING-STOfiAGE"   4&   $2  ==   "SECTION.") 
{   prlntf   "DeSetn         $3\n",)0;   next   ] 
else 

{  if  (substr($1,1,1)    -  /[0-9]/)    {   prlntf    "Dlrtn  "   J 

if  (3ub3tr($NF,    length  ($NF),   1)    ==  ".") 
{1=1 
while  (1  <=  NF  ) 

{    if   (($1   ==   "REDEFINES")    |i    ($i   ==   "HENA^ff;S")    ||    ($i   ==    "VALUE")) 
{   prlntf   "\nDlrtn  "   } 

prlntf   "$3  »,    $1;  i++  } 
printf  »\n";  next 
) 
else 

{1=1 
while  (    1  <=  NF  ) 

{    if   (($i   =r   "REDEFINES")    i|    ($1    ==    "RENAMES")    ||    ($i   ==    "VALUE")) 
{   printf   "\nDlrtn  "   )  ' 

printf   "its   ",    $i;  1++  J 
next 
] 
} 
}    } 

/./   {  print  $0  }•  $1.nnnnn  >  $1.nD 
ra  $1.nnnnn 

I  separates  declarations  into  declaration  part  and  initialization  part 

i       for  file  two 

awk  ' 

/DATA  DIVISION./, /PROCEDURE  DIVISION/    { 

\\liil%Tlelt^\    ^'--"''^'^'"'^''^   "   ($2=="DIVISI0N.")    ||    (substr($1  J  .1  )-.=  «..) ) 

else 

(   if   ($1    ==   "FILE"    II    $1    „   "WORKING-STORAGE"    44   $2   ==    "SECTION.") 
{   printf   "DeSetn         J3\n",$0;   next   ] 
else 

{  if   (sub3tr($1,1,1)   -  /[0-9]/)    {   printf   "Dlrtn  "   } 
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If   (3Ub3tr($NF,    length   ($NF),    1)    ==   ".") 

(1=1 

while   (1   <=   NF   ) 

{    if    (($i    ==    "HEEE  FINES")    II    ( $i    ==    "RENAMES")    II    ($i   ==    "VALUE")) 
{    printf    "\nDlrtn  "    } 

printf    "%s   ",    $i;   i++  } 
printf   "\n";   next 

] 
else 

(1=1 
while   (    i  <=   NF   ) 

{   if   (($1   ==   "REDEFINES")    II    ($i   ==   "REMAMES")    II    ($i  ==   "VALUE")) 
{    printf   "\nDlrtn  "   ) 

printf  "Xs  ",   $i;  i++  J 
next 
1 
) 
1    1 

/./    {   print   $0  )'   $2.nnnnn  >  $2.nn 
rm  )2.nnnnn 
# 

#  break  procedure  division  into  statements 
Dalntain.  auxc   $1.nn 

ov   (1.nn.  modules  )1. modules 
mv   )1.nn.  calls  $  Leal  Is 
maintain,  auxc   $2.nn 

« 

#  Printing  the  heading  of  the  overall   number  for   file  one 

I 

echo  ' •  >>  $1.1i3t 

echo  »  $1.1ist 

echo   'OVEBALL   ANALYSIS   OF  STATEMENTS'    »   Jl.list 

echo  »  $1.1ist 

I 

I     Calculation  module  is  embedded  in  maintain,  auxl 

I         compute  number [TYPE]  of   each   statement  for  file  one   and  list   the  result 

maintain,  auxl  $1.nn  »  ll.list 

echo  -n  $1'    •$2«    •   »  0.  stats,  totals 

echo  -n  $1»    '$2'    •  »  0.  stats,  alters 

echo  -n  $1 »    •$2*    '   »  0.  stats,  deletes 

echo  -n  $1'    •$2»    •   »  0. stats,  adds 

cat  auxteop  »  0.  stats,  totals 

echo  >>  0.  stats,  totals 

rn   auxtemp 

# 

#  fix  up  divisions  file  one 
awk  ' 

/IDENTIFICATION   DIVISION/    {   printf    "Js   Js\n",$1,$2;   next    } 

/ENVIBCNffiNT  DIVISION/    {   printf   "Js  Js\n",$1,$2;   next   ] 

/DATA  DIVISION/    {   printf   "Js  $s\n",$1,$2;   next    ) 

/PROCEDOHE  DIVISION/    {   printf    "Js   Js\n",$1,$2;    next    } 

/./    {   print   $0;   next   }•   $1.nn  >  $1.na 

ro  $1.nD 

mv  $1.na  $1.nn 

« 

#  fix  up  divisions  file  two 
awk  ' 

/IDENTIFICATION   DIVISION/    {   printf    "Js   J3\n",$1,$2j   next    ] 

/ENVIRONMENT  DIVISION/    {   printf   "Js   J3\n",$1,$2;    next    ) 

/DATA  DIVISION/    {    printf    "Js   J3\n",$1,$2;    next    } 

/PROCEDURE  DIVISION/    {   printf   "Js   Js\n",$1,$2;   next   ) 

/./    (   print  $0;   next    ]'   |2.nn  >  $2.na 

rm   $2.nn 

mv   $2.na  $2.nn  ^-"^ 

« 


Difference  moduli 


flag  alters,    deletions  and  addition  in  file  one  — >  file   two 
diff  -e  $1.nn  $2.nn     Igrep   ''[0-9]'    I 
sed   'a/X,/   /g 

s/a/    a  /g 

s/c/  0   /g 

3/d/  d  /g*    I 

BEGIN    (printr   "BEGIN    {l=0)\n"l 
NF==2    (if   (*2   ==   "a") 

{printf   "NH==  Jd    (print   \"a\",$0   ;i=11\n",$1 
printf   "NRsr  Jd    (print   \''b\",$0   ;i=1  }\n",  ($1+1 )    1 
else    (printf    "NRrr   Jd    (print   \"J3\",$0   ;i=1 l\n", $1 ,$2  }) 
NF==3   (for  (J=$1;J<=$2;J++)  .    ,  *,, 

printf   "NRss  Jd    (print   X-JsX-.^O   ;i=1)\n", J,$3l 
END   (print   "(if  (i  ==  0)   print   \-    \-,$0  }\n(if   (il=0)    1=0)-) '   >  anoth 
awk  -f  anoth   $1.nn  >  $1.r 
m  anoth 

#  flag  alters,    deletions,    and  additions  in  file   two  — >   file  one 
diff  -e  $2.nn  $1.nn     igrep  ','[0-9]'    I 
sed  's/N,/  /g 

s/a/   a  /g 

s/c/  0   /g 

s/d/  d  /g*    I 

BEGIN    (printf   "BEGIN    (l=0)\n") 

NF==2    (if   ($2  ==   "a")  ,.    .  *, 

(printf   "NR==  %d    (print   \"a\",$0   ;i=1)\n",$1 
printf   "NR==  Jd    (print   \"b\",$0   ;i=1 )\n", ($1+1)    ) 
else    (printf   "NR==  Jd    (print   \"J3\",$0   ;i=1)\n", $1 ,$2  )) 
NF==3   {for   (J=$1;J<=$2;j-.-*)  .    .  *„ 

printf  "NH==  Jd   (print  \"$s\",$0  ;i=1}\n", J,$3} 
END   (print   "(if  (i  ==  0)   print   \"    \",$0  }\n(if   (11=0)    1=0}"}'   >  anoth 
auk  -f  anoth  $2.nn  >  $1.b 
rn   anoth 


Report     module 


maintain,  aux  $1.r  »  Jl.list 
maintain,  auxa   $1.b  »  $1.1ist 

»     if  there  were  altered,    then  print  out  an  analysis  of   those  altered 

if  (test  -f  $1.r.o) 

then 

maintain,  auxb  $1.nn  $2.nn  »  $1.1ist 

rm  $1.r.  o 

fi 


rm   $1.nn  $2.nn 

#     if   there  were  deleted,    then  list   the  deleted  statements 

if   (test  -f  delefile) 

then  ^     ,^    ^ 

echo  • •     »  >1-li«t 

echo  »  $1.1i3t 
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echo   'LIST  THE  DELETED  STATEMENTS'      >>   $1.1l3t 
echo     »   Jl.llst 
cat     delafile  >>   tl.liat 
rm     del  ef  lie 
echo  »   $1.1i3t 
fi 

#     If  there  were  added,    then  Hat  the  added  atatenenta 

If   (teat  -f  addaflle) 

then 

echo  • — ~ — 

echo  »  $l.ll3t  >>  «^-ii«t 

echo   'LIST  THE   ADDED  STATEMENTS'      »   Jl.liat 

echo  »  $1.1l3t 

cat     addafile  »  $1.1iat 

rm      addafile 

echo  »  $l.ll3t 
fl 

na       0.  atata 
ro       0.  atata.  • 
rm       $l.« 
PB       $2.nn. • 
#  eof:  maintain 


A-6 


# 

I      program:      maintain,  aux 

t 

9   tabulating  number    of    addition  sections,    deletions,    altered 

}  create   a   new    file   "ctemp",    "alterfile"   to   store  altered  statements 

t         create  a  new    file   "dtemp",    "delefile"   to  store  deleted  statements 

awk   ' 

BEGIN    {A  =   0;C  =   0;D  =   0 

} 

/a/    {    A++   } 

/c/    (    print   $0  >   "ctemp";   C++   } 

/d/    {    print   $0  >   "dtemp";   D++  ) 

END   (   printf   ii\n»»«««««»««»»««»»»«»»««»«»««»»»«»»"""»»»»"»**»*\n\n"; 

printf    "TOTAL    NUMBER   OF  ADDED  SECTIONS  IS:    $d   \n",A   ; 

printf    "Jd   Jd   Jd   ",A,C,D  »  "0. stats"; 

printf    "TOTAL    NUMBER    OF  ALTERED:    Id    \n",C; 

printf ■  "TOTAL    NUMBER   OF  DELETIONS:    Jd   \n",D; 

printf   "\n ■ • ••\n\n\n")  •   $1 

ech  o  '  — — - — ~ — ~ — — — 

echo 

echo   'ANALYSIS    OF  STATEMENTS    ALTERED' 

#  if   there  are  altered 

#  remove  c  in  front  —   for   uniform   treatment 

#  tabulate  numbers  of   each   statement   type  via  maintain,  aux  1 

if   (test  -f  ctemp) 

then 

sed   's/c/  /'    ctemp  >  alterfile 

f 

I     compute  Number[TYPE]  of   each   statement  in  altered  file  and  Hat  result 

maintain.  aux1    alterfile 

cat  auxtemp  »  0.  stats,  altered 

echo  "altered"   >  $1.c 

rm   ctemp  alterfile  auxtemp 
else 

echo   ••••  NO  STATEMENTS    ALTERED   •••' 
fi 

echo 
echo 

ech o  •  — "- ~ ~~ — 

echo 

echo  'ANALYSIS   OF  STATEMENTS   DELETED' 

echo 

f  if  there  are  deletions 

t  remove  d  in  front  --  for   uniform   treatment 

#  tabulate  numbers  of  each   statement   type  via  maintain,  auxl 
if   (test  -f  dtemp) 

then 

sed   '3/d/   /'   dtemp  >  delefile 

# 

I     compute  Number[TYPE]  of   each   statement  for   delefile  and  list  result 

m  al  ntai  n.  aux  1  del  ef  il  e 

cat  auxtemp  »  0.  stats,  deletes 

rm  dtemp  auxtemp 
else 

echo  '•••  NO  STATEMENTS   DELETED   •••' 
fl 
echo 

echo  '— — — — ' 

echo 

echo   'ANALYSIS    OF  STATEMENTS    ADDED' 

echo 

#  eof:  maintain,  aux 
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#  prograa:     niaintaln.  auxa 

#  tabulate   the   number   of   added  statements  via  flipping  of   files 
awk   • 

BEGIN    (   D  =   0   ] 

/d/    {    print   $0  >   "dtemp";   D++  1 

END   {   printf    "TOTAL    NUMBER   OF  ADDED  STATEMENTS:    $d\n\n»,    D; 

printf   "JdXn",    D  »  "0. stats")'   $1 
I  if   there  were  additions 
I         then  remove  d  from   front 

I         tabulate  number   of   each   statement   type  via  maintain,  auxl 
if  (test  -f  dtemp) 
then 

sed   's/d/  /'   dtemp  >  addsfile 

# 

t     compute  Number[TYPE]  of   each   statement  in  added  file 

maintain.  aux1    addsfile 

cat  auxtemp  »  0.  stats,  adds 

rm  dtemp  auxtemp 
fl 

#  eof:     maintain,  auxa 


f  prograa:     maintain,  auxb 

I       processes  altered,    listing  original    statement,    and  new    statement 

ech  o  ' 1 

echo 

echo   'ANALYSIS    OF  ALTERED  STATEMENTS' 

echo 

echo 

diff  -1   $1   %2   I 

awk  ' 

/[aid]/    {flag  =  01 

/o/    {flag  =   1;    print   $0} 

/</,/[o|d|a]/   {if  (flag  ==  1)   print  $0)'      | 

awk  ' 

/o/   {printf   "NnNn";   next) 

/</    {print   "ORIGINAL   LINE  ",    $0;   next    } 

/>/   {   print   "NEHLDJE  ",    $0;   next    ) 

/ /    {if  (NF  ==   1)    {   printf   "\nALTERED  TO   \n\n"   );   next)' 

f     eof:     maintain,  auxb 
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#  program:   maintain,  auxc 
« 

§       process  the   procedure  division   splitting  statements  up 

t  split  into  two   temporary    files 

awk   VPRCCSDORE  DIV ISICN/ ,/EnO/    {    print    $0  >>   "last,  part";    next 

/./    {   print   $0  »  "first. part"   J'   $1 

rm   $1 

#  place   a  q    in  front   of   all   keywords  we  are  looking  at 
sed   ' 

3/  MOVE  /   qMOVE  /g 

3/   ADD   /    qADD  /g 

3/    SOBTBACT   /   qSOBTRACT   /g 

3/   MULTIPLY   /    qMULTIPLY   /g 

3/   DIVIDE    /   qDIVIDE    /g 

3/   COMPOTE   /   qCOMPUTE   /g 

3/   IF  /   qlF  /g 

3/  ELSE  /  qqaSE  /g 

3/   ON   /   qON   /g 

3/   AT   END   /   qAT   END  /g 

3/   CALL   /    qCALL   /g 

3/   PERFOBM  /   qPERFORM   /g 

3/   GO  /    qGO  /g 

3/   ALTER   /    qALTER   /g 

3/   NEXT   /   qNEXT   /g 

3/  EXIT   /   qEXIT  /g 

3/   STOP  /   qSTOP  /g 

3/  COPY  /   qCOPY  /g 

3/  DELETE   /   qDELETE   /g 

3/  DISPLAY  /   qDISPLAY  /g 

3/   OPEN    /    qOPEN   /g 

3/  CLOSE  /   qCLOSE  /g 

3/    READ   /    qfiEAD   /g 

3/   REWRITE  /  qREHRITE  /g 

3/   WRITE   /   qWRITE   /g 

3/  ACCEPT   /   qACCEPT   /g 

3/   SEARCH  /    qSEARCH   /g 

3/   SORT   /   qSORT   /g 

3/   SET   /    qSET   /g 

3/   GOBACK   /   qGOBACK   /g 

3/  EXEC  CICS/   qEXEC   CICS/g 

3/   TRANSFORM/   qlRANSFORM/g 

3/   EXAMINE   /   qEXAMINE   /g 

3/  INSPECT  /  qlNSPECT  /g'   last,  part  »  last.  part,  n 

ra  last. part 

t  split  up  into  keyword  per  line 

awk  ' 

BEGIN    {   line  =  0;) 

/EnD/   {   printf   »\n";   next    ) 

{  if  (3ub3tr($1,1,1)    ==   »tn)    {   if   (une  ==   i)    {   printf   "\n"   ) 

printf   "){s\n",$0;   line  =  0   ) 
else 


{  i  =   1 
while   (i  <=  NF) 
{   if   (substr   ($i,1,l)    ==   "q") 

{   if   (line  ==   1)    {   printf    "\n"    } 
If   (substr   ($i,2,1)    ==   "q") 
{   printf   "J3   ",3ub3tr($i, 3, length   (H)-2);   line  =   0   ] 
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el  se 

(   printf    "Xa   ",  3ub3tr(  $1,2  .lengtb   (JD-D;    line  =    1    ] 

1 
else    (   printf    "ta   ".H;    line   =    1    } 

1++ 

) 

If  (3ub3tr($NF, length   (}NF),1)    ==   *.")    {   printf    "Xn";    line  =  0   } 

1 

}    •    last.  part,  n  >  last,  part 
m  last,  part,  n 

#  renova  q    in  ccfflment 
aed   ' 

3/q//g'    last,  part   >  last,  part,  a 

ra  last,  part 

my  last.  part,  a  last,  part 

#  indent  for   if  nesting  levels  printable  version 
auk   'BEOn    (    level   =   0   } 

NP  ==   1    44  sub3tr($NF,  length   ($NF),1)    ==   "."   44  3ubstr(  >NF,  1  ,1 )    "  /tO-9]/    (    level   =   0    ) 
/./    {   if   (level    1=  0) 

{1=1 

while  (i  <s   level) 
{    printf   "  ";   i+-f  ) 

} 
) 
/IF  /   {    print    $0 
level** 

If  ((substr   (jNF.length   ($NF),1)    ==  ".  ")   44   (level    >  0))    {    levei—  J 
next 

) 
/./    {   print   to 

if  ((subatp   ($NF,length   ($NF),1)    ==  ".")   44   (level    >  0)) 

(    level  s  0  }    }'   last,  part  >  last.  part,  n 
ra  last,  part 

i  return  In  original    file 

cat  first,  part  last.  part,  n  >  $'. 

#  create  files  to  be   used  to  hand  generate  the  hierarchy  dlagraa 
oal ntal n. auxa  1 ast. part,  n 

Dv  calls  $1. calls 

ov   aiodules  $1. nodules 

m  first,  part  last.  part,  n 

#  eof:     aalntaln.  auxa 
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I  prograa:     maintain,  auxl 

# 

#  oomputa   r.uofcera  of    atateoent   for    eacfi    '■/?« 

#  and  tabulata   the  actual    nunber    if    ir.alvi^iual    atateoent   types 
aulc  • 

Sacm    {   ccm_ant   =   0;    r_oom_cnt  =   0;    r'.l_ccnj_  :nt   =   0; 

other_ont  =   0;    cic3_cnt  =   0;    ^obacl<_:r.t   =    0;    tranaf Grai_cnt   =   0; 
tdec_cnt  =   0;    deo_cnt  =   0;   d3eG_cnt   =    0;    f<i_cnt   =  0; 

#  value  la  counted  In  both    tdec_cnt   and   i23i^_:nt 

value_cnt  =   0;    radef ine3_cnt   =   0;    ra.^ame3_cnt   =   0; 
a33ign_cnt  =  0;   ncve_cnt  =  0;    add_cnt  =  0;    dlvlde_cnt  =  0; 

3ultlpiy_cnt  =  0;   3ubtract_cnt   =   0;    ccnpute_ont  =  Q; 
branctj_cnt  =  0;   next_cnt  =  0;    e.xit_cnt   =   0;    3top_cnt  =  0; 

gotq_cnt   =   0;   altep_cnt  =   0;    perfcrm_cnt   =   0;    call_cnt  =   0; 
];_q_cnt  =   0;    copy_cnt  =   0;   delete_cnt   =   G;    dl3play_cnt  =   0; 

opea_cnt   =   0;   cl03e_cat  =   0;    read_cnt   =   Q;    «rita_anc  =   0; 

reHrlta_cnt  =   0;    acc€pt_crit  =   0; 
exaalne_cnt  =  0;    ln3pect_cnt  =  0; 
3earci\_cnt  =  0;   3ort_cnt  =  0;    3et_cnt  =  0; 

con<Lcnt  »  0;  lf_cnt  =  0;  el3e_cnt  =  0;  ot\_cnt  =  0;  on3ize_cnt  =  0; 
env_cnt  s  0;  conf iguratioa_cnt  =   0;    lA_out_cnt  =  0;   f lle_cont_cnt  =  0; 

3elect_cnt  s  0;   3peclal_cnt  =   0;    3p_l3_Gnt  s   0;   3C0Bp_cnt  =   0; 

oconip_cnt  =  0;   lbn_cnt  =  0; 
label_cnt  =  0;   at_en(t.cnt  =  0 
} 

NP  =>  1    &A  subatr   ()NF, lengtb()NF),1 )    ==   ".  "   ii  aubatr   ($NF, 1,1)    ~     /CO-9]/ 

{    label_cnt+-».  J 
f  skip  dlTiaiona 
/  DIVISION/    (   next    ) 

#  conoenta 

subatr  ($1,1,1)    ==   "•■    {  con_cnt-»-+ 

If   (NF  ==   1)    {    nl_com_cnt++  ) 

next    } 
/Cooaent/  {  r_co^cnt++;  con_cnt  ++;   next   ) 

#  environoent   section  stateoents 
/Env/   {   If  (I 

else 
else 
else 
else 
else 
else 
else 
else 
else 


==   "CONFIGURATION")    {   conf lguratior\_cnt++;   env_cnt-»-+;   next    } 

if  ($1   ==  "IN POT-OUTPUT")    {   ln_out_cnt++;   env_cnt**;   next    ) 

If  ($1   rs  "FILB-CONTRCL.")    (    f ile_cont_cnt++;   env_cnt+-»-;    next    ) 

If  ($1   ==   "SPECIAL-NAhES. ")    {    3pecial_cnt++;   en»_cnt++;   next    ) 

If  ($1   ==  "SOURCE-COMPUTER.")    (    3C0(Dp_cnt++;   en»_cnt+-»-;    next    ) 

If  ($1   S3  "OBJECT-COMPUTER.")    (   ocoiDp_cnt+-f ;   e n?_ en t •••■»•;   next   ) 

If  ($1   ==   "IBM-3083.")    (   ltin_cnt++;   en»_cnt++;   next    } 

If  ($1   =s  "IBM-370.")    {   lbra_cnt++;   env_cnt++;   next    } 

if  ($1   =s   "SELECT")    (   3elect_cnt>+;   eiw_cnt+*;   next   ) 

if  ($2  =s  "IS")    (  sp_i3_cnt++;   env_cnt+-f;   next   })))})})})} 

#  declarationa 

/Dlrtn/   (   if  ($2  =3   "FD")    (    f<Lcnt*+;    tdec_cnt>*;    next    ) 

else    I  if  ($2  =s   "VALUE")    {   a33lgn_cnt++;   value_cnt*+;    tde(;_cnt++;    next    ) 
else    {  if  ($2  =3   "REDEFINES")    {   redef ines_cnt  ♦+;   tdec_cntfi-;   next    } 
else    (  if  ($2  S3  "HEMAHES")    (   renames_cnt  ♦♦;    tdecj_cnt*-f;   next    ) 
else   {  deq_cnt  ♦♦;   tdeQ_cnt+-»';   next   }    }    )    }    ) 

/DeSetn/  {  daeq_cnt  ♦••■;  tdeo_cnt-»-+;  next   } 

/BLSB  /   {   contLcnt-f+;   else_cnt-»"f;   next    ) 

#  aasignoent 

/MOVB  /   (   a33ign_cnt+*;   iDOve_cnt+-f;   next    } 
/ADD  /   {   a3aign_cnt-t>*;   ad<l_cnt*+;   next   } 
/SUBTRACT  /   (   assign. cnt*-f;   3ubtract_cnt*+;   next    } 
/MULTIPLt  /   {   assign, cnt*-f;   Bultiply_cnt-t-*;    next    ) 
/DIVIDE   /   {   a3aign_cnt*f;   divlde_cntf+;   next    } 
/COMPUTB  /   (   aaalgn_cnt*-f;   coBpute_cnt+-f;   next    ) 
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I  conditionals 

/IF  /    (    sond_cnt++;    if_ont++;    next    } 

/CN    SIZE   ERROR  /    {   cond_cnt-t"t-;    on3ize_cnt++;    next    ) 

/ON   /    {   con(l_cnt++;    on_cnt-i-+;    next;    } 

/AT   END  /    {    cond_cnt++;    at_encLcnt-f-t-;    next;    ) 

#  looping  —  branching 

/EXIT  /   {   branch_cnt*+;   exit_cnt++;   next    ) 
/CALL  /    {   branch_cnt++;   call_ont++;   next    } 
/PERFORM  /    {    branch_cnt++;    perf orni_cnt+-f ;    next    ] 
/GO  TO  /    (    branch_cnt+-t-;   goto_cnt++;    next    } 
/NEXT   /      {    branch_cnt++;   next_cnt++;    next    } 
/STOP  /   {   branct}_cnt++;   3top_cnt+-«-;   next    } 

#  input- out  put 

/DELETE  /   {   I_Q_cnt++;   delete_cnt++;   next    ) 
/DISftAY  /   (   l_0_cnt++;   di3play_cnt+-t-;   next    ] 
/OPEN   /    (    I^0_cnt++;   opei\.cnt++;    next    } 
/CLOSE  /   {   l_0_cnt++;   close_cnt++;   next    } 
/READ  /   {   i;_q_cnt++;   read_cnt++;   next   ) 
/REWRITE  /   {   i;_0_cnt++;   rewrlte_cnt++;   next   } 
/WHITE  /   {   I_q_cnt++;  Hrite_Qnt++;   next    ) 
/ACCEPT  /   {   I_Q_cnt++;   accept_cnt++;   next    J 


END 


#  other 

/COPY  /   {   other_cnt++;   copy_cnt++;   next   ) 
/ALTER  /    {   other_cnt+-t-;   alter_cnt++;   next    ) 
/SEARCH  /    {   3earch_Gnt+-t-;   other_cnt  ++;   next   ) 
/SORT  /   {   3ort_cnt++;   other_cnt  ++;   next    ) 
/SET  /   {   3et_cnt+-t-;   other_cnt  ++;   next    ) 
/TRANSFORM  /   {   other_cnt++;   transf orn_ont++;   next    ) 
/EXAMINE  /   {   other_cnt++;   exaffline_cnt++;   next    ) 
/INSPECT  /   {   other_cnt  ++;   in3pect_ont++;   next   ) 
/EXEC  CICS/    (   Gic3_cnt  ++;   other_cnt  ++;    next    } 
/GOBACK/   {   gobac^_cnt  ++;   other_ont  ++;   next   } 
{  u_c3  =   com_cnt  -   r_coin_cnt  -   nl_com_ont; 

print    "NUMBER    OF  LINES   OF  COMMENTS    :    ", consent; 

print    "  IDENTIFICATION    DIVISION    :    ",  r_com_cnt ; 

print   "         SPACING   PURPOSES  :    ",  nl_com_cnt ; 

print    "  USEFUL   COMhENTS  :    ",u_c3; 

printf   "$d   Jd   %d  Jd   ",  con_ en t,  r_ consent,  nl_ consent,  ii_G3   »   "auxtemp"; 

print   "  "; 

print    "NUMBER    OF  ENVIRONMENT  STATEMENTS 


print 
print 
print 
print 
print 
print 
print 
print 
print 


CONFIGURATION    SECTION 
SOURCE-COMPUTER 
OBJECT- COMPUTER 
COMPUTER   SPECIFICATION 
SPECIAL    NAMES 
SPECIAL    NAME    ASSIGNMENT 
INPUT-OUTPUT  SECTION 
FILE- CON  TRX 
SELECT 
printf    "Jd    ",env_ont   »   "auxtemp"; 
printf   "Jd   ",  configuratiori_cnt   »  "auxtemp"; 

",3Conip_cnt   »  "auxtemp"; 

",oconp_cnt   »  "auxtemp"; 

",imb_cnt   »   "auxtemp"; 

",3pecial_cnt  »  "auxtemp"; 

"fSp_l3_cnt   »  "auxtemp"; 

",in_out_cnt   »  "auxtemp"; 

",  flle_oont_cnt   >>   "auxtemp"; 

",3elect_cnt  »  "auxtemp"; 


",  env_cnt ; 

",conf  iguratiorLcnt; 

",  3comp_cnt ; 

",  ocomp_cnt ; 

",  iba_cnt ; 

",  3pecial_cnt; 

".  3p_iq_cnt ; 

",  in_out_ent ; 

",  flle_cont_cnt; 

",  select_cnt; 


printf  "$d 

printf  "Jd 

printf  "Jd 

printf  "Jd 

printf  "Jd 

printf  "Jd 

printf  "Jd 

printf  "Jd 


print   "   "; 

print    "NUMBER   OF  DEaARATIONS 


",  tdeo_cnt; 
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print 
print 
print 
print 
print 
print 


",  d3e(;_cnt ; 

'',f4_cnt; 

", deG_cnt ; 

",  value_cnt ; 

",  redef  ine3_cnt ; 

",  renanie3_cnt ; 


SECTICNS 

FD 

DEaARATICNS 

y.ALUE   CLAUSES 

HEEE  FINES 

RENAMES 
printf    "Id    ", tdec_cnt    >>   "auxtemp"; 
printf    "id    '',d3eG_ont   »   "auxtemp"; 
printf    "Jd    ", fd_cnt   »   "auxtemp"; 
printf    "Jd    ",dec_cnt   >>   "auxtemp"; 

printf   "M   Jd   Jd   ",  val'je_cnt,  redef  ine3_cnt,  rename3_Gnt   >>   "auxtemp"; 
print    "    "; 

print    "NUMBER   CF  ASSIGNMENTS    :    ",  a33ign_cnt ; 

"    »••  note   that  the  above   total    include3  VALUES   CLAUSES    •••"; 


print 
print 
print 
print 
print 
print 
print 


MOVE 

ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 

COMPOTE 


",  move_cnt ; 
",  add_cnt ; 


print 
print 
print 
print 
print 


", subtract_Gnt ; 
",  mul  tiply_cnt ; 
",  divide_cnt ; 
",  coapute_cnt ; 

printf    "Jd   Jd   Jd   Jd   ",  aaslgn.cnt,  niove_cnt,  add_cnt,  3ubtract_cnt   »  "auxtemp"; 
printf    "Jd   Jd   Jd    ",  mul  tiply_cnt,  divide_cnt,  compute_Gnt   >>   "auxtemp"; 
print    "    "; 

print    "NUMBER    OF  CONDITIONALS 
IF 

ELSE 
ON 

ON    SIZE   ERROR 
AT   END 
printf   "Jd   Jd   Jd   Jd   ".concLcnt 

printf   "Jd   Jd   ",  on3ize_cnt,  at_en(l_cnt   >>  "auxtemp"; 
print   "   "; 

",  branch_cnt ; 

",call_cnt; 

",  perf  orm_cnt; 

"i  goto_Gnt; 

",  next_cnt ; 

",  exlt_cnt ; 

",  stop_cnt ; 

printf   "Jd   Jd   Jd   Jd   ",  branch_cnt,  call_cnt,  perf  orm_cnt,  goto_cnt   »   "auxtemp"; 
printf   "Jd   Jd   Jd",  next_cnt,  exlt_Gnt,  3top_cnt   >>   "auxtemp"; 
print    "NUMBER    OF  INPUT/OUTPUT 


",  cond_cnt ; 
",if_Gnt; 
",  else_cnt ; 
",  on_cnt ; 
", on3ize_ont ; 
",  at_end_cnt ; 
if_Gnt  ,else_cnt   ,  oti_cnt   »  "auxtemp"; 


print    "NUMBER    OF  BRANCHINGS 


print 
print 
print 
print 
print 
print 


CALL 

PERFORM 

GO  TO 

NEXT 

EXIT 

STOP 


print 
print 
print 
print 
print 
print 
print 
print 


",  j^q_cnt; 
DELETE  :    ",  delete_cnt ; 

DISftAY  :    ",di3play_cnt; 

OPEN  :    ",open_cnt; 

CLOSE  :    ",clo3e_cnt; 

HEAD  :    ",reaci_cnt; 

REWRITE  :    ",  rewrite_cnt ; 

WRITE  :    n,Hrite_cnt; 

ACCEPT  :    ",  accept, cnt; 

printf   "Jd   ",I_0_cnt   »  "auxtemp"; 

''^^"!5  lit  5*^  l"^  ^"^  ".delete_cnt,di3play_cnt,  open. cnt,  close. cnt  »  "auxtemp"; 
printf  "Jd  Jd  Jd  Jd  ",rea<Lcnt,re«rlte_cnt,write_cnt,  accept. cut  »  "auxtemp"; 
print   "   ";  "^   ' 

print   "NUMBER   OF  LABELS   :    ",label_cnt; 

printf   "Jd   ".label.cnt  »   "auxtemp"; 

print   "NUMBER    OF  OTHER   STATEMENTS    :    ",  ocner_Gnt ; 

COPY  :    ",copy_cnt; 

ALTER  :    ",alter_cnt; 

TRANSFORM  :    ",  transform,  cnt ; 

EXAMINE  :    ",  6xamine_cnt ; 

INSPECT  :    ",in3pect_Gnt; 

printf   "Jd   Jd   ", other_cnt, copy_cnt   >>   "auxtemp"; 
printf   "Jd   Jd   ",  al  ter.cnt,  transf  orin_cnt   »  "auxtemp"; 


print 
print 
print 
print 
print 


printf   "td   ",  exami.Te_cnt   »  "auxtesnp"; 
prlntf   "W   »,  ln3pect_ont   >>  "auxteap"; 
printf    "W   ",3earch_ont   »   "auxtaap" ; 
printf    "Id    ",3ort_cnt   >>   "auxteap"; 
printf   "M   '',3et_cnt  »  "auxteop"; 
printf   "Jd   '.cica.cnt  >>  "auxtemp"; 
printf   "Jd»,aobacK_ont   »  "auxtefflp"; 


#  eof 


print  " 
print  " 
print  " 
print  " 
print  " 
:     oaintaln.  auxl 


SEAflCa 

scat 

SET 

CICS    EXEC 

QCBACK 


",  3e3rch_cnt ; 
",  3crt_:nt ; 
",  3et_cnt; 
»,  ciG3_ont ; 
".gobaclecnt   }•   $1 
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Appendix  B. 


Example  COBOL  Program  Version.! 


ICENTIFICATICN    DIVL3ICN. 
PHOGfiAM-ID.    XXXXX 
AUTHOR.    XXXXX,    XXXXX 
VEBSION    1. 

INSTALLATION.       XXXXXXXXXXXX 
DATE-WRITTEN.    APRIL    196^ 

•  PHCGRAOM  HAS   WRITTEN    FROM      PRO    JEX    ^Q-^dH    MVS 

•  CONVERSION,    MODIFIED  SELECT    aAUSE 
ENVIRONMENT   DIVISION, 

CONFIGURATION    SECTION. 
SOU  ROE- COMPUTER.    IBM-370. 
OBJ  EOT- COMPUTER.    IBM-370. 
INPUT-OUTPUT  SECTION. 
FILE- CONTROL. 

SELECT    PRINT-FILE   ASSIGN   SYS003-UR-1 IJO3-S. 

SELECT   CARD-FILE   ASSIGN   SYS001-UR-2520R-S. 

DATA  DIVISION. 
FILE  SECTION. 

FD      PRINT-FILE  LABEL    RECORDS    ARE  OMITTED 
REPORT    IS    REPORT-DETAIL. 

FD      CARD-FILE  LABEL    RECORDS    ARE  OMITTED. 
01      CARD-REC  PIC   X(80). 

WORKING-STORAGE  SECTION. 

01      HRK-REC. 

02   C-FILL    PIC  X(5). 

02  FILLER   REDEFINES  C-FILL. 

03  FILLER    PIC  X. 

88  DOLLAR-SIGN  VALUE   '$'. 

03   FILLER    PIC  X(l)). 
02   C-DATE  REDEFINES   C-FILL    PIC  9(5). 
02   C-REF     PIC  X(6). 
02  FILLER    PIC  X(5). 
02   C-ACTA   PIC   X(H). 
02   C-ACTB    PIC  X(3). 
02   C-ACTC  PIC  X(3). 
02  FILLER    PIC  X. 
02   C-AWTX     PIC  X(11). 

02   C-AMNT  REDEFINES  C-AMJTX  PIC  9(9)V99. 
02   C-AMJTSIGN   PIC   X. 
02  FILLER    PIC  X(8). 
02   C-TYPE    PIC  X. 
02   FILLER    PIC   X(12). 
02   C-VEMD  PIC  X(5). 
02   C-DESC  PIC  X(15). 


01      AMI 


PIC  S9(9)V99   VALUE  ZERO. 


REPORT  SECTION. 
RD     REPORT-DETAIL 

PAGE  LIMIT   IS  65   LINES 
HEADING    1 
FIRST  DETAIL   H . 
01      PAGE- HEADER    TYPE    IS    PAGE  HEADING. 
05      LINE  NUMBER    IS    1. 

10     COLUm      02    PIC   X(6)    VALUE   'ED0283'. 
10     COLUM)      30    PIC   X(21)    VALUE    'DISTRIBUTION    KICKOUTS', 
10     COLUM)     78  PIC  X(H)    VALUE   'DATE'. 
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H  =J)0002 

^■:4ccc3 

iiiUCOCJ 
!)8K0005 
i|Si(C0C6 

!1SJ)C008 

ustocog 

«&(0011 

yejjooi2 

18^(0013 
H8H0014 
it  8^0015 

1I8H0016 

ISilOOU 

1I81J0018 

it8')0019 

481)0020 

i|  840021 

U340022 

4  840023 

4  8Jf0024 

4  840025 

4  840026 

4  840027 

4840028 

4840029 

4  840030 

4S40031 

4840032 

4840033 

4840034 

4840035 

4  840036 

4840037 

4840038 

4840039 

4  840040 

4840041 

4840042 

4840043 

4  840044 

4840045 

4  840046 

4  840047 

4840048 

4840049 

4  840050 

4840051 

4  840052 

4840053 

4  840054 

4840055 

4  840056 

4  840057 

4  840058 

4840059 

4840060 

4  840061 

4840062 

4840063 

4840064 


10      COLUMN      83    PIC   X(3) 
05      LINE  NUt-SEH    IS    PLUS   1 

10    ccLu^»^    73  PIC  x(u) 

10     COLUMl      32    PIC  2(4) 
05     LINE  NUMBER    IS    PLUS  1 
10      COLUt-tl   03    PIC   X(ll) 
CGLUttl    12    PIC   X(6) 

coLU^^^  23  pic  x(7) 

COLUt-«  57  pic   X(3) 

COLUm  67  PIC  X(!») 

COLUt*  7l«  PIC  X(6) 
COLUMN   85 


SCORCE    CURRENT-DATE. 

'value   'PAGE'. 
SOURCE    PAGE-CCUNTER. 


10 
10 
10 
10 
10 
10 


VALUE 
VALUE 
VJSIUE 
VALUE 
VALUE 
VALUE 


'DATE' . 
•REF  NO'  . 
• ACCT   MO' 
'AWT'  . 
I  TYPE' . 
'VENDOR'  - 


05      LINE  NUMBER 


PIC   X(11) 
IS    PLUS   1 


10  coLum  20  PIC  x(io) 


VALUE    'DESCRIFTICN', 
VALUE  SPACES. 


01 


REPORT-LINE  TYPE  IS 
05  LINE  NUMBER  IS 
10  COLUm  02  PIC 
10  COLUW)  01)  PIC 
10  COLUMJ  07  PIC 
10  COLUM)  12  PIC 
10  C0LU^W  20  PIC 
10   COLUNW   2M    PIC 

10  coLU^^  25  pic 
10  coLum  2  8  pic 

10  COLUm   29   PIC 

10  coLum  51  PIC 
10  coLum  6  8  pic 
10  coLum  71  PIC 

10  COLUM)   83   PIC 


DETAIL. 
PLUS  2. 
Z9B99B9   SOOHCE   C-DATE. 

X  VALUE   '-'. 

X  VALUE   '-'. 

X(6)    SCORCE   C-REF. 

X(M)    SOURCE    C-ACTA. 

X  VALUE   •-'. 

X(3)    SOURCE    C-ACTB. 

X  VALUE   '-'. 

X(3)    SOURCE    C-ACTC. 

ZZZ,ZZZ,ZZ9.99-    SOURCE    AMI. 

X  SOURCE   C-TYPE. 

X(5)    SOURCE    C-VEMD. 

X(15)    SOURCE   C-DESC. 


01 


ERROR-DETAIL   TYPE    IS   DETAIL, 
ns     LINE  NUMBER    IS    PLUS  3. 

10  COLUm  02    PIC  X(9)    VALUE  '.."ERROR'. 

10  COLUm    10   PIC  X(80)    SCORCE  WRK-REC. 


PROCEDURE  DIVISION. 

OPEN    OUTPUT   PRINT-FILE 

INPUT   CARD-FILE. 
INITIATE  REPORT-DETAIL. 

'°°°mS'cARD-FILE   INTO  WRK-REC   AT   END  GO   TO   3000.E0F. 
IF  DOLLAR- SIGN 

GO  TO   1000-LOOP.  „^„„ 

EXAMINE  C-AbtJTX  REtlACING    ALL   SPACES  BY  ZERO. 
I   IF  C-Ahf)TX  NOT  NObERIC 
i       GENERATE  ERROR-DETAIL 
•        MOVE  ZERO  TO   C-Att)TX. 
IF  C-AIUTSIGN    EQUAL    '-' 

COMPUTE  AMI   EQUAL   C-AMJT 
ELSE 

HOVE  C-AWT  TO   AMI. 
GENERATE   REPORT-LIME. 
MOVE  ZERO   TO   C-AMNT. 
GO   TO    1000-LOOP. 

3 000- EOF. 

TERMINATE   REPORT-DETAIL. 
aOSE   CARD-FILE   PRINT-FILE 
STOP  RUN. 


.   -1 


U540C65 

q6U0066 

4840067 

4  84006  8 

4S40C6  9 

4  340070 

4840071 

4840072 

4340073 

4340074 

4840075 

4  840076 

4  840077 

4  34007  8 

4  840079 

4840080 

4640031 

4840082 

4  8400  83 

4840084 

4840085 

4840086 

4840087 

4840088 

4840089 

4840090 

4840091 

4  840092 

4  840093 

4840094 

4  840095 

4840096 

4  8400  97 

4840098 

4840099 

4840100 

4840101 

4840102 

4840103 

4840104 

4340105 

4840106 

4840107 

4840108 

4840109 

4840110 

4840111 

4840112 

4840113 

4840114 

4840115 

4840116 

4840117 

4840118 

4840119 

4  840120 

4840121 

4  840122 

4840123 

4840124 

4840125 

4  840126 
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Appendix  C. 

IDENTIFICATION    DIVISION. 

PR  OGHAM- ID.     XXXXX 

AUTHOR.    XXXXX,    XXXXX 

VERSION    2. 

INSTALLATION.       XXXXXXXXXXXX 

DATE-WRHTEN.    APRIL    1984 
ENVIRONMENT   DIVISION. 
CONFIGURATION    SECTION. 
SOURCE-COMPUTER.    IBM-370. 
CBJECT-COMPOTEfl.    IEr+-370. 
INFOT-COTPCT  SECTION. 
FILE-CONTRa. 

SELECT    PRINT-FILE   ASSIGN  UT-P1L. 
SELECT   CARD-FILE   ASSIGN  UT-CARDIN. 

DATA   DIVISION. 
FILE  SECTION. 

FD     PRINT-FILE  LABEL    RECORDS    ABE  OMITTED 
REPORT   IS    REPORT-DETAIL. 

FD      CARD-FILE  LABEL    RECORDS    ARE  OMITTED. 
01      CARD-REC  PIC   X(80). 

WORKING-STORAGE  SECTION. 

01      WRK-REC. 

02   C-FILL   PIC   X(5). 

02  FILLER   REDEFINES   C-FILL. 

03   FILLER    PIC  X. 

88  DOLLAR-SIGN  VALUE   •$'. 

03  FILLER    PIC   X(H). 
02   C-DATE  REDEFINES   C-FILL    PIC  9(5). 
02   C-REF     PIC  X(6). 
02  FILLER    PIC  X(5). 
02   C-ACTA   PIC  X(ll). 
02   C-ACTB    PIC  X(3). 
02   C-ACTC  PIC  X(3). 
02   FILLER    PIC   X. 
02    C-Af«TX     PIC   X(11). 

02   C-AMJT  REDEFINES   C-AhMTX  PIC  9(9)V99. 
02   C-AWTSIGN   PIC  X. 
02  FILLER    PIC  X( 8) . 
02   C-TYPE    PIC  X. 
02  FILLER    PIC  X(12). 
02   C-VEND  PIC  X(5). 
02  C-DESC  PIC  X(15). 


Example  COBOL  Program  Version. 2 


01      AMI 


PIC  S9(9)V99   VALUE  ZERO. 


REPORT  SECTION. 
RD      REPORT-DETAIL 

PAGE  LIMIT   IS  65   LINES 
HEADING    1 
FIRST   DETAIL   H. 
01      PAGE-HEADER    TYPE    IS    PAGE  HEADING. 
05      LINE  NUMBER    IS    1. 

10     C0LU^«      02    PIC   X(6)    VALUE    •ED0283'. 

10      COLUtH      30    PIC   X(21)    VALUE   'DISTRIBUTION    KICKOOTS', 

10     COLUm      78   PIC   XC*)    VALUE    'DATE'. 

10     COLUhW      83   PIC  X(8)    SOURCE   CURRENT-DATE. 


!J  840002 
!)8HC0C3 
H840004 
4  540005 
4340006 
4  340007 
4340012 
4540013 
4840014 
4840015 
4840016 
4840017 
4840018 
4840019 
4  840020 
4  640021 
4  840022 
4  840023 
4  840024 
4  840025 
4  840026 
4  84C027 
4340028 
4  840029 
4840030 
4840031 
4840032 
4840033 
4840034 
4840035 
4  840036 
4  840037 
4840038 
4840039 
4  840040 
4840041 
4  840042 
4  840043 
4S40044 
4  840045 
4  840046 
4  840047 
4840048 
4  840049 
4  840050 
4  840051 
4  840052 

4  840053 
4  840054 

4840055 
4  840056 
4  840057 
4840058 
4840059 
4840060 
4  840061 
4  840062 
4840063 
4840064 
4840065 
4840066 
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PROCEDORE  DIVISION. 


GO  TO   1000-LOOP. 

I 


05     LDJE  NUNBER    IS    PLUS   1,  4  240067 

10     COLUNfl      78   PIC   X(1J)    VALDE    'FAQE'.  14324(^068 

10     CQLUm      82    PIC   Z(l4)    SOURCE    FAG  E-CCU  NTER.  ^840069 

05      LINE  NUMBER    IS    PLUS   1.  1(340070 

10      CCLUNtl   03    PIC   X(l4)    VALUE    'DATE'.  i)'^40C71 

10     COLUm    12    PIC   X(6)    VALUE    'REFNC  «31t00''2 

10     COLUm   23    PIC   X(7)    VALUE    '  ACCT   HC  .  4840073 

10     COLUCN   57    PIC   X(3)    VALUE    'AMT'.  4  5140074 

10     COLUm  67   PIC   X(4)    VALUE   'TYPE'.  4840075 

10     COLUKW  74    PIC  X(6)    VALUE   '  VENDOR'.  4.340076 

10     COLUm    35    PIC   X(11)    VALUE    'DESCRIPTION'.  4  340077 

05     LINE  NUMBER    IS    PLUS   1.  4640078 

10  COLUf*  20    PIC  XdO)    VALUE  SPACES.  4  340079 

01      REPORT-LINE  TYPE    IS   DETAIL.  4  840081 

05     LINE  N0^!BER    IS    PLUS  2.  484C082 

10  COLUNN   02   PIC  Z9E99ag    SOURCE   C-DATE.  4S4C083 

10  COLUm   04   PIC  X  VALUE   '-'.  4840084 

10  COLUm   07   PIC  X  VALUE   '-'.  4840085 

10  COLUWJ    12   PIC  X(6)    SOURCE   C-HEF.  4840086 

10  COLUMJ  20    PIC  X{4)    SOURCE   C-ACTA.  484C0e7 

10  COLUm  24    PIC  X  VALUE   •-'.  4840088 

10  COLUMJ   25    PIC   X(3)    SOURCE    C-ACTB.  4840089 

10   COLUMJ   28   PIC   X  VALUE    '-'.  4&4C090 

10  COLUm   29  PIC  X(3)    SOURCE   C-ACTC.  484C091 

10  COLUNW   51    PIC  ZZZ,ZZZ,ZZ9.99-    SOURCE    AMI.  4840092 

10  COLUMJ  68  PIC  X  SOURCE   C-TYPE.  4  840093 

10  COLUMJ  74   PIC  X{5)    SOURCE   C-VEMD.  4840094 

10  COLUMJ   83   PIC  X(15)    SOURCE   C-DESC.  484C095 

4840096 

li  All 00 07 

01      ERROR-DETAIL   TYPE   IS   DETAIL.  4  84QQqfl 

05     LINE  NUMBER    IS    PLUS  3.  4840099 

10  COLUMJ   02    PIC   X(9)    VALUE    '••••ERROR'.  4840100 

10  COLUMJ   10   PIC  X(80)    SOURCE  HRK-REC.  4840101 

4840102 
4840103 

OPEN    OUTPUT   PRINT-FILE  JJJSISJ 

INPUT   CARD-FILE,  lifl^n'nfi 

INITIATE  REPORT-DETAIL.  4  840107 

READ  CARD-FILE   INTO  HRK-REC   AT   END  GO   TO   3000-EOF.  4840110 

IF  DOLLAR-SIGN  Mtwunu 


4840111 
4  840112 
4840000 
4840001 


■ 

■ 

4  PJinon:! 

EXAMINE   C-AMJTX  REPLACING    ALL    SPACES   BY  ZERO.  4840in 

IF  C-AMJTX  NOT  NUMERIC  4840      4 

GENERATE  ERROR-DETAIL  4  flan    ^ 

MOVE  ZERO  TO  C-AMITX.  IZnlll 

IF  C-AMJTSIGN   EQUAL    '-'  Uflani    7 

COMPUTE   AHT  EQUAL   C-AMJT   •  -1  lai.nllo 

ELSE 


4840118 


MOVE  C-AMJT  TO   AMT.  J^JJ'^ 

GENERATE  REPORT-LINE.  laun■>o^ 

MOVE  ZERO  TO   C-AMJT.  Inlnlll 

GO   TO    1000-LOOP.  4aIo    p? 

3000-EOF.  4  840123 

TERMINATE  REPORT-DETAIL.  l^nlll 

CLOSE   CARD-FILE   PRINT-FILE  Ipnnl^c 

STOP  RUN.  ^     ^                                                              4  6401^6 

C-2  4  840127 


Appendix  D. 


Result  from  Running  Maintain 


ANALYSIS    FOR:    COBOL.  1    CCEa.2 


LIST  OF  MISSING    DIVISIONS   FOR      CCBCL.1 


EMD  OF  LIST 


LIST  OF  MISSING    DIVISIONS  FOR      COBOL. 2 


END  OF  LIST 


OVERALL   ANALYSIS   OF  STATEMENTS 


NUMBER    OF  LINES    OF  COMMENTS 
IDENTIFICATION    DIVISION 
SPACING    PURPOSES 
USEFUL   COMMENTS 


10 
7 
0 
3 


NUMBER    OF  ENVIRONMENT  STATEMENTS 
CONFIGURATION    SECTION 
SOURCE- COMPUTER 
OBJECT-COMPUTER 
COMPUTER   SPECIFICATION 
SPECIAL    NAMES 
SPECIAL    NAME    ASSIGNMENT 
INPUT-OUTPUT  SECTION 
FILE- CON  TRX 
SELECT 


NUMBER    OF  DEaARATIONS 
SECTIONS 
FD 

DEaARATIONS 
VALUE   aAUSES 
REDEFINES 
RENAMES 


2 

0 

61 

19 

3 

0 


NUMBER    OF  ASSIGNMENTS 


21 


•••  note   that  the  above  total    includes  VALUES   CLAUSES   ••• 


MOVE 

1 

ADD 

0 

SUBTRACT 

0 

MULTIftY 

0 

DIVIDE 

0 

COMPUTE 

1 

NUMBER   OF  CONDITIONALS 

:      H 

IF 

:     2 

ELSE 

:      1 

ON 

:     0 

ON    SIZE  ERROF 

:     0 

AT   END 

:      1 

NUMBER    OF  BRANCHINGS 


D-1 


CALL 

0 

PERF.CRM 

0 

GO   TO 

3 

NEXT 

0 

EXIT 

0 

STOP 

1 

NUMBEB    OF  INPUT/OUTPUl 

■   :      3 

DELETE 

:     0 

DISPLAY 

:     0 

OPEN 

:      1 

CLOSE 

:      1 

READ 

:      1 

REWRITE 

:     0 

WRITE 

:      0 

ACCEPT 

:      0 

NUMBER    OF  LAfiaS 


NUMB  EH    OF  OTHEfl    STATEMENTS 

1 

COPY 

.      0 

ALTER 

•      0 

TRANSFORM 

0 

EXAMINE 

1 

INSPECT 

0 

SEARCH 

0 

SORT 

0 

SET 

0 

CICS    EXEC 

0 

GOBACK                        : 

0 

TOTAL    NUMBER    OF  ADDED  SECTIONS  IS:    1 
TOTAL    NUMBER   OF  ALTERS:   7 
TOTAL    NUMBER   OF  DELETIONS:    2 


ANALYSIS   OF  STATEMENTS    ALTERED 


NUMBER   OF  LINES   OF  COf^MENTS 
IDENTIFICATION   DIVISION 
SPACING    PURPOSES 
USEFUL   COMfENTS 


NUMBER   OF  ENVIRONtlENT  STATEMENTS 
CONFIGURATION    SECTION 
SOURCE- COMPUTER 
OBJECT-COMPUTER 
COMPUTER   SPECIFICATION 
SPECIAL    NAMES 
SPECIAL    NAME    ASSIGNMENT 
INPOT-OOTPUT  SECTION 
FILE- CONTROL 
SaECT 


2 

0 
0 
0 
0 
0 
0 
0 
0 
2 


*JUMBEH    OF 


DEaARATICflo 

0 

SECTIONS 

0 

FD 

0 

DECLARATIONS 

0 

VALUE   aAUSES 

0 

REDEFINES 

0 

SENANES 

0 

NUMBER   OF  ASSIGNt-lENTS    :      0 
•  ••  note   that   the  above   total    includes  VALUES   aAUSES    »■• 


MOVE 

ADD 

SUBTRACT 

MULTIFLY 

DIVIDE 

COMPOTE 


NUMBER    OF 


CONDITIONALS 

IF 

ELSE 

ON 

ON    SIZE  ERROR 

AT  END 


NUMBER    OF  BRANCHINGS 
CALL 
PERFORM 
GO   TO 
NEXT 
EXIT 
STOP 


NUMBER   OF  INTOT/OUTPOT 
DELETE 
DISPLAX 
OPEN 
CLOSE 
READ 
REURITE 
WRITE 
ACCEPT 


NUMBER    OF  LABELS 


NUMBER   OF  OTHER   STATEMENTS 

•      0 

COPY 

:      0 

ALTER 

:     0 

TRANSFORM 

i     0 

EXAMINE 

:     0 

INSPECT 

i     0 

SEARCH 

:     0 

SORT 

i     0 

SET 

0 

CICS    EXEC 

0 

GOBACK 

0 

ANALYSIS    OF  STATEMENTS   DELETED 


D-3 


NUf'IBEfl    OF  LINES    CF  CCMJ-ENTS 
IDENTIFICATION    DIVISION 
SPACING    PURPOSES 
USEFUL    COMhE.NTS 


NUMBER    OF  £NVIRCH1€NT  STATEI-ENTS 
CONFIGURATION    SECTION 
SOOHCE-CCMP«JTER 
OBJECT- COMPUTER 
COMPUTER    SPECIFICATION 
SPECIAL    NAMES 
SPECIAL    NAME    ASSIGNMENT 
INPUT-COTPUT  SECTION 
FILE- CONTROL 
SaECT 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


NUMBER    OF 


DECLARATIONS 

SECTIONS 

FD 

DEaARATIONS 

VALUE   aAUSES 

REDEFINES 

RENAMES 


0 
0 
0 
0 
0 
0 
0 


NUMBER   OF  ASSIGNMENTS    :      0 
•••  note   that   the  above  total    includes  VALUES   CLAUSES    »•• 


MOVE 

0 

ADD 

:      0 

SUBTRACT 

:      0 

MULTIPLE 

:      0 

DIVIDE 

:     0 

COMPOTE 

:     0 

NUMBER 

OF  CONDITIONALS      :      0 

IF 

•     0 

ELSE 

0 

ON 

0 

ON    SIZE  ERROR 

0 

AT  END                   : 

0 

NUMBER 

OF  BRANCHINGS   :      0 

CALL                 : 

0 

PERFORM         : 

0 

GO  TO               : 

0 

NEXT                 : 

0 

EXIT                 : 

0 

STOP                : 

0 

NUMBER 

OF  INPOT/OOTPOT   :      0 

DELETE 

:     0 

DISPLAY 

:     0 

OPEN 

:     0 

CLOSE 

:     0 

READ 

:     0 

REWRITE 

:     0 

WRITE 

:     0 

ACCEPT 

:     0 

NUMBER 

OF  LABELS    :      0 

NUMBER 

OF  OTHER    STATEl-IENTS    : 

0 

COPY 

; 

0 

D--4 


ALTER 

0 

TRANSFCHM 

0 

EXAMINE 

0 

INSPECT 

0 

SSAfiCH 

0 

SORT 

0 

SET 

0 

CICS    EXEC 

0 

GCBACK 

0 

ANALYSIS    CF  STATE^ENTS    ADDED 


TOTAL   NUMBER   OF  ADDED  STATEMENTS:    3 


NUMBER    OF  LINES   OF  COMf€NTS 
IDENTIFICATION    DIVISION 
SPACING    PURPOSES 
USEFUL    COMKENTS 


NUMBER    OF  ENVIRONMENT  STATEMENTS 
CONFIGURATION    SECTION 
SOURCE- COMPUTER 
OBJECT- COMPUTER 
COMPUTER   SPECIFICATION 
SPECIAL    NAMES 
SPECIAL    NAME    ASSIGNlffiNT 
INPUT-OUTPUT  SECTION 
FILE- CONTROL 
SELECT 


NUMBER   OF  DEaARATIONS 
SECTIONS 
FD 

DEaARATIONS 
VALUE   aAUSES 
REDEFINES 
RENA^eS 


NUMBER   OF  ASSIGNMENTS    :      0 
•  ••  note   that  the  above  total    Includes  VALUES   CLAUSES    ••• 


MOVE 

0 

ADD 

0 

SUBTRACT 

0 

MULTIPLY 

0 

DIVIDE 

0 

COMPUTE 

0 

NUMBER 

OF  CONDITIONALS 

:      0 

IF 

:     0 

ELSE 

:     0 

ON 

:     0 

ON    SI2E  ERROf 

i    :     0 

AT   END 

:     0 

NUMBER 

OF  BRANCHINGS    : 

0 

CALL                 : 

0 
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NUMB  EH 


FERFCHM 

0 

GO  TO 

0 

JJEXT 

0 

EXIT 

0 

STOP 

0 

OF  INPOT/C0TP01 

r  :     0 

DELETE 

:      0 

DISEIAY 

:      0 

OPEN 

:      0 

CLOSE 

:      0 

READ 

:      0 

REWRITE 

:     0 

WRITE 

:     0 

ACCEPT 

:     0 

NUMBER   OF  LABELS    :      0 


NUMBER   OF  OTHER   STATEMENTS 

0 

COPI 

0 

ALTER 

0 

TRANSFORM 

0 

EXAMINE 

0 

INSPECT 

0 

SEARCH 

0 

SORT 

0 

SET 

0 

CICS    EXEC 

0 

GOBACK 

0 

ANALYSIS    OF  ALTERED  STATEMENTS 


ORIGINAL  LINE     <  Comment 

ALTERED  TO 

N  EM  LINE     >  Comment 

ORIGINAL   LINE     < 
ORIGINAL   LINE     < 


ALTERED  TO 

NEMLINE     > 
NEULINE     > 


VERSION    1 


VERSION   2. 

SELECT    PRINT-FILE   ASSIGN   SYS003-UR-1 4G3-S. 
SELECT    CARD-FILE  ASSIGN   SYS00H-UR-2520R-S. 


Env 
Env 


SELECT   PRINT-FILE   ASSIGN  UT-P1L. 
SELECT   CARD-FILE  ASSIGN  UT-CARDIN. 


Env 
Env 


ORIGINAL   LINE  < 

ORIGINAL   LINE  < 

ORIGINAL  LINE  < 

ALTERED  TO 


•  IF  C-AhWTX  NOT  NUMERIC 

•  GENERATE  ERROR-DETAIL 

•  MOVE  ZERO   TO   C-AhMTX. 


NEMLINE     >  IF  C-A^«TX  NOT  NUMERIC  GENERATE  ERROR-DETAIL 
NEWLINE     >  MOVE  ZERO  TO   C-AM)TX. 


LIST  THE  DELETED  STATEMENTS 

Comment  •     PROGRAOM  HAS  WRITTEN    FROM     PRG   JEX   10-8- 8H    MVS 
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Ccmment  •     CCNVEBSION,    MODIFIED  SELECT    CLAUSE 


LIST   THE   ADDED  STATEMENTS 
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Appendix  E.     The  Shell  Prograin  Classify 
t 

I  The  Input  file  ia  the  result  from   executing  the   3hell 

I  program   Maintain.        It   generates  H    tenporary    files. 

#  "Alterl"   stores  old  altered   statements  and   "alter;"   stores 

#  new   altered  statements.      Deleted  statemens  are   put  into  "del file" 

#  and  added  statements  in  "addfile". 

I  The  output  lists  six  types  of   aiaintenance  from  3    files.      The  six  types 

#  are  Correction,    Adaption,    Retrenchment,    Setrieving,    Pretty   printing, 
I  and  Documentation.        The   puis  and  minus   signs   in   pretty    printing  and 

#  documentation  stand  for   the  increasing  or   decreasing  or   the  numbers. 

§ 

echo     ANALYZING   FOR    :    $1   >   $1.out 

echo     >  °"t 

t 

If     insert  special   characters  to  original    file 

* 

awk   ' 

BEGIN    {    lineO   =  0   ) 

/LIST  THE   ADDED  STATEMENTS/  {   print    "IJ«$"    »  "copyfile"    1 

/LIST  THE  DELETED  STATEMENTS/  I   print   "#»•$"    >>  "copyfile"    ) 

{   print   $0  »  "copyfile"   ) 

END  {  print   "«•$"   »  "copyfile"   1    '   $1 

«  linel:   old  numbers  of   altered  statement;  line2:    new   numbers  of   altered 

t  nolinel:   old  numbers  of   altered  statements  in  a  block 

t  noblock:  numbers  of   block  being  altered 

t  noalter:   numbers  of  block  counted  as  big  changed  in  size 

3W  k    ' 

BEGIN      {   llne1=0;   line2=0;   noline1=0;   noline2=0;   flag  =0;   noblock=0;   noalter=0) 

/ANALYSIS    OF  ALTERED  STATEMENTS/,   /\#\X\»\$/      ( 
if  ($3  ==  "<") 
line++ 
f     store  old  altered  statements  to  alterl    file 

i  =  H 

while  (i  <=  NF) 

{   print  $i   »  "alterl";   i++  ] 
f 
if  (flag  ==  0) 

{   nolinel ++  } 
#  compute  the  block  which  changes  rapidly   in  size 
if  (flag  ==  1) 

{  if  ((nolinel   >    10)   &4   (noline2  >    10)) 
{   if  (nolinel   >  noline2) 

{   dlvl   =   nolinel   /   noline2   } 
else 

{  div1    r  nollne2  /  nolinel    ) 
If  (   div1   >  2) 
{   noalter+i-  ) 

} 
else 

{  if  (nolinel   >  noline2) 

{  dlv2  =   nolinel   /  nollne2 
dlf2  =  nolinel   -  noline2 

} 
else 

{  div2   =   noline2   /   nolinel 
dlf2   =   noline2  -   nolinel 

) 

if   ((div2   >   5)    I  I    (dif2   >   5)) 
{   noalter++  } 
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i  reset  to  0   after  done   a  block 
flag   :  0 
nolinel    =   1 
noline2  =  0 
1 
1 
if  ($2   ==   ">") 
(    line2++ 
#  store  new   altered  statements  to  alter2   file 

J   =   3 

while     (j  <=  NF) 

{   print   $J   »     ''alter2'';   j++  ! 
if  (flag  ==  0) 

{   noline2  =  0;   flag  =  1    } 
if  (flag  ==   1) 

{   noline2++  } 

) 
if   (($1    ==   "ALTERED")    44    ($2    -=    "TO")    44    (NF   ==   2)) 
{   noblock++  } 

1 

f     store  deleted  statements  to  delfile 
/LIST  THE  DELETED  STATEMENTS/,    /\#\?\«\$/    [ 

if   (($3=  =  ''DELETED")I  I  ($0=="*  J»$"  )  I  1(NF==0)|  |  (3ub3tr(  $0, 1  ,3)  ==" ")) 

{      } 
else 

{  print   $0  »  "delfile"   1 

) 
#  store  added  statements  to  addflle 
/LIST  THE   ADDED  STATEMENTS/,    /\#\J\»\$/    { 

if   (($3=="ADDED")||($0=="#J«$«)| 1(NF==0)| | (3ub3tr( $0, 1 ,3)==" " ) ) 

{      } 
else 

{  print  $0  >>  "addfUe"   } 

) 
END   {   if   (noblock   1=  0) 

{     print   "\n   ((   Altered   ))"        »  "out" 

print   "  number   of   original   line    :   "  linel   >>  "out" 

print   "  number   of   new    line  :    "  line2      >>   "out" 

print   "  number  of   block  altered   :    "  noblock  »  "out" 

if     (noalter  >  5) 

{    print    "  <Adaptive>"    »   "out"} 

else 

{  print   "  <Corrective>"   >>  "out"   } 

}    }    »     copy  file 
I 
f 

if     ((   test  -f  alterl)   4&  (test  -f  alter2)) 
then 

dlff  alterl    alter2  >  difference 
sed     's/X,/  /g 
3/a/  a  /g 
3/0/  c    /g 

s/d/  d  /g*     difference   >  result 
awk  ' 

BECm    {  NoAdd  =   0;   NoDel   s  0;    NoRetrench  =   0;   NoRetrieve  =   0; 
alterfroo  r   0;   alter  to  =   0; 

Del  Document  =   0;    AddDocument  =   0;    Del  Print  =  0;      AddPrint  =   0 
aflag  =  0;   cflag  =  0;   dflag  =  0;   clflag  =0;   c2flag  =0     ) 


E-2 


fl 


{   If  ($2  ==   "a") 

{    aflag  =   1;  cflag   =  0;    dflag  =  0    } 

if   (($2   ==   "c")  I  I    ($3   "   "c")) 

{   cflag  =   1;  dflag  =  0;    c2fl3g  =  0;    cjflag  =  0;    aflag  =  0;   dflag   =  0} 

if  (($2  ==   "d")  1  I    ($3   ==   "d")) 

{   dflag  =   1;  aflag  =  0;    cflag   =  0    } 

if  (    aflag  ==   1    ) 
{   if   ($1    ==   ">") 

{   if   ($2  ==   "•") 

(   Nofletrench+-t-   } 
else 

(   NoAdd++  }    }    ) 
if   (    cflag  ==   1    ) 

{    If   ($0   ==   "<   •") 

{   if   (dflag   "   1) 
{   DelFrlnt++  } 
if   (cinag  ==  0    ) 
{   cinag  =  1    1 
preatar  =   1    1 
if   (($1    ==   "<")   44    ($2    1=   »•")    44    (dflag  ==   1)) 
{   dflag  =  0;    DelDocument++   ;    prestar   =   0      ) 

if   (($0   ==   " ")    44    (dflag  ==   1)    44    (prestar  ==   1)) 

(   NoRetrieve++  ) 

if   {($0  ==   " ")   44    (dflag  ==   1)    44    (prestar  ==  0)) 

{   DelPrint++  ) 
if   ($0  ==   ">  •") 

[   if   (c2flag  ==   1) 
{    AddPrint++ 

if   (cSflag  ==  0) 

{   AddPrint++;    c3flag  =   1    )      } 
if   (c2nag  ==  0) 
{   c2flag  =  1    )      } 
if   (($1    ==   ">")    44   ($2    1=  "•")   44   (c2flag  ==   1)) 

(    c2flag  =  0;      AddDocument++  j         } 
if   (($1   ==  "<")   44    ($2    1=  "•")   44    (dflag  ==  0)) 

{   alterfroai++  ) 
if   (($1    ==   ">")   44   ($2    1=   "•")   44    (c2flag  ==  0)) 
{   alterto++  } 
if   (   dflag  ==   1    ) 
{   if  ($1   ==  "<") 

{   if  ($2  ==  "•") 

{   NoRetrieve++   } 
else 

{   NoDel++  )      1      } 

1 
END   {  if   (    NoRetrencfa   >  0   ) 

(   print   "  <RetrenchiDent>   :    number  =   "  NoRetrench   >>  "out"    ) 

if   (    NoHetrieve  >  0   ) 

{    print   "  <Retrieving>        :   number  =   "   NoRetrieve  >>  "out"   } 

if   (AddDocument   >  0) 

{    print    "  <Documentation+>    :    number  =   "   AddDocument   »   "out") 

if   (DelDocument   >  0) 

{   print   "  <Documentatioi>'>   :   number  =   "   DelDocument   >>  "out"} 

if   (AddPrint   >  0) 

{   print    "  <Pretty   Printlng+>    :    number  =   "   AddPrint   »  "out") 

if   (DelPrint   >  0) 

{   print   "  <Pretty   Printing->    :   number  =   "  DelPrint   »  "out") 

)    '   result 
rm   alterl      alter2     result     difference 
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t 

i     If   there  exist   deleted  statements 

If      (    test  -f   lielfile    ) 

then 

auk   ' 

BEGIN    {   NcCcmaient  =  0;   NoDlrtn  =   0;    DelDoc  =   0;    DelDoc  =   0} 
(    if   ($1    ==   "Ccnnent") 
[    NoCc(DQent++  1 
If   ($1    ==   "Dlrtn") 

(   NoDlrtn++  1 
If   (($0   ==   "•")    44   (NF  ==    D) 

{    DelPnt++  1 
If   (($1    ==   "•")   44    (NF  >    D) 
(   Del  Do C++  ) 

} 
END   {    (   print    "Nn    ((    Deleted    ))    »      »   "out"    } 

{print    "  The   total    number   of   deleted  stateoens  is   "  NR   >>''cut''} 

if   (NoComment   >  0) 

{    print    "  Comment  is  deleted,      number:    "  NoComment   >>   "out"} 

If   (NoDlrtn  >  0) 

{    print   "  Declaration  is  deleted,      number:    "  NoDlrtn  »  "out") 

if   (DelPnt   >  0) 

{    print    "  <Pretty    printing->    :    number    "  DelPnt    »   "out") 

if   (DelDoc  >   0) 

(    print    "  <Documentation->    :    number   "  DelDoc   >>   "out") 

NoOther  =    NR  -   Nocomment  -    NoDlrtn  -  DelPnt  -   DelDoc 
if   (NoOther   >   10) 

{    print    "  <Adaptive>   :    number    "  NoOther   »   "out") 

if   ((NoOther   <=   10)    44    (NoOther   >   0)) 

{    print   "  <Corrective>   :    number    "  NoOther»  "out") 

)    •   del  file 
rm   del  file 
fi 
# 

#     if  there     exists  added  statements 
if     (    test  -f  addflle  ) 
then 
awk  ' 

BBGDI    {  NoComment  =  0;   NoDlrtn  =  0;   AddDoc  =   0;    AddPnt  =   0   } 
{  if  (t1    ==   "Comment") 
{   NoConment++  ) 
if   ($1    ==   "Dlrtn") 

{   NoDlrtn++  ) 
If   (($1    ==   «•")   44   (NF  ==    D) 

{  AddPnt++  } 
if  ({$1  ==  "•")  44  (NF  >  D) 
{  AddDoc++  ) 

} 
END   {{   print   "\n   ((   Added   ))   "   »  "out"    ) 

{   print   "  The  total   number   of   added  statements  is  "  NR  >>  "out"    ) 

if  (NoComment  >  0) 

{   print    "  Comment  is  added,      number:    "  NoComment   >>  "out"   } 

If   (NoDlrtn  >  0) 

{   print   "  Declaration  is  added,      number:    "  NoDlrtn  »   "out") 

if  (AddPnt   >  0) 

{   print   "  <Pretty   Prlnting+>    :      number   "  AddPnt   »  "out") 

if   (AddDoc  >  0) 

{    print   "  <Documentatlon+>    :      number   "  AddDoc  »  "out") 

NoOther  =    NR  -    NoComment  -   NoDlrtn  -    AddPnt  -    AddDoc 
if   (    NoOther   >   10) 

{    print    "  <Adaptive>   :    nunber    "  NoOther   >>  "out") 

if   ((    NoOther   <=   10)    44    (    NoOther   >  0)) 

{    print    "  <Corrective>   :    nimber    "  NoOther   >>  "out") 

)    •    addfile 
rm   addfile 
'i  E-4 


Appendix  F.       Result  from  Running  Classify 

ANAL'fZDIG    fCR    :   CCBCL.  1  .  listing 


((    Altered   )) 

number   of   original    line    :    7 
number   of   new   line  :   6 

number  of   block  altered   :    3 
<Corrective> 
<Hetrieving>       :   number  =   3 

((   Deleted   )) 

The   total    number   of   deleted  atatemena  ia  2 

Comment   ia  deleted.      number:    2 
<Corrective>  :   number  2 

((   Added   )) 

The  total   number  of   added  statements  is  3 
<Pretty   Printing+>   :     number  3 
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Abstract 

Software  maintenance  has  become  the  most  expensive 
phase.  To  maintain  software,  managers  need  methods  to  moni- 
tor the  process  in  order  to  predict  where  changes  will 
occur.  Knowing  the  types  of  maintenance  help  managers  in 
managing  the  maintenance. 

The  study  presents  a  method  to  classify  types  of 
maintenance.  The  work  focuses  on  analyzing  COBOL  programs 
and  classifying  different  types  of  maintenance.  The  shell 
program  Maintain  was  written  as  a  tool  to  analyze  two 
sequential  versions  on  a  program.  Program  set  A,  from  a 
Kansas  company,  was  first  introduced  to  analyze.  Six  types 
of  maintenance  were  identified  from  the  results.  They  are 
corrective,  adaptive,  retrenchment,  retrieving,  pretty 
printing,  and  documentation.  The  classification  rules  were 
then  converted  into  the  second  shell  program  Classify. 
Program  set  B,  from  data  processing  environment,  was 
finally  verified  with  the  program  Maintain  and  Classify  to 
test  the  results. 

The  presented  method  is  successfully  in  classifying 
types  of  maintenance  from  empirical  data  that  changes 
between  two  versions  of  a  program.  In  particular,  the 
method  allows  managers  to  identify  types  of  maintenance 
that  have  been  done  and  evaluate  the  effort  by  means  of  the 
classification  rules. 


